lib/Quancom.pm
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;