changeset 13 | d6f681329542 |
parent 12 | ad264ee5d5ba |
child 15 | 2d41fac09084 |
--- a/lib/Quancom.pm Sun Jan 04 18:42:46 2009 +0100 +++ b/lib/Quancom.pm Sun Jan 04 23:44:45 2009 +0100 @@ -102,7 +102,11 @@ my $self = shift; local $/ = "\r"; # CR is the delimiter - $self->{last_result} = new Quancom::Result($self->{socket}->getline); + + local $_ = $self->{socket}->getline; + #chomp; warn "got:<$_>\n"; + $self->{last_result} = new Quancom::Result($_); + } 1;