diff -r ad264ee5d5ba -r d6f681329542 lib/Quancom.pm --- 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;