=================================================================== RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v retrieving revision 1.49 retrieving revision 1.50 diff -u -r1.49 -r1.50 --- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm 2008/02/08 19:29:05 1.49 +++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm 2008/02/08 19:32:15 1.50 @@ -1,6 +1,6 @@ package Net::Telnet::Trango; -# $RedRiver: Trango.pm,v 1.48 2008/02/08 18:49:41 andrew Exp $ +# $RedRiver: Trango.pm,v 1.49 2008/02/08 19:29:05 andrew Exp $ use strict; use warnings; use base 'Net::Telnet'; @@ -1120,10 +1120,10 @@ if ($line =~ s/^(\d+) \s+ //xms) { my $line_id = $1; my ($tm, $rt); - if ($line =~ s/\s+ (\d+ \s+ \w+) $//xms) { + if ($line =~ s/\s+ (\d+ \s+ \w+) \s* $//xms) { $rt = $1; } - if ($line =~ s/\s+ (\d+ \s+ \w+) $//xms) { + if ($line =~ s/\s+ (\d+ \s+ \w+) \s* $//xms) { $tm = $1; }