| changeset 13 | d6f681329542 |
| parent 12 | ad264ee5d5ba |
| child 15 | 2d41fac09084 |
| 12:ad264ee5d5ba | 13:d6f681329542 |
|---|---|
100 |
100 |
101 sub _rx { |
101 sub _rx { |
102 my $self = shift; |
102 my $self = shift; |
103 |
103 |
104 local $/ = "\r"; # CR is the delimiter |
104 local $/ = "\r"; # CR is the delimiter |
105 $self->{last_result} = new Quancom::Result($self->{socket}->getline); |
105 |
106 local $_ = $self->{socket}->getline; |
|
107 #chomp; warn "got:<$_>\n"; |
|
108 $self->{last_result} = new Quancom::Result($_); |
|
109 |
|
106 } |
110 } |
107 |
111 |
108 1; |
112 1; |
109 |
113 |
110 __END__ |
114 __END__ |