===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.46
retrieving revision 1.48
diff -u -r1.46 -r1.48
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2008/02/08 17:34:10	1.46
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2008/02/08 18:49:41	1.48
@@ -1,6 +1,6 @@
 package Net::Telnet::Trango;
 
-# $RedRiver: Trango.pm,v 1.45 2008/02/08 16:49:09 andrew Exp $
+# $RedRiver: Trango.pm,v 1.47 2008/02/08 17:40:00 andrew Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -970,6 +970,7 @@
     $self->last_vals($vals);
 
     my $last = $self->lastline;
+    $self->last_error($EMPTY);
 
     if ( ( not $cfg{'expect'} ) || $last =~ /$cfg{'expect'}$/ ) {
         if ( $cfg{'cmd_disconnects'} ) {
@@ -1116,10 +1117,12 @@
     my %decoded;
     foreach my $line (@lines) {
 
-        if ($line =~ s/^(\d+) \s*//xms) {
+        if ($line =~ /^(\d+) \s+ (.*) \s+ (\d+ \s+ \w+) \s+ (\d+ \s+ \w+) $/xms) {
             my $line_id = $1;
-            my $d = _decode_lines($line . "\n");
+            my $d = _decode_lines($2. "\n");
             $decoded{tests}[$line_id] = $d;
+            $decoded{tests}[$line_id]{'time'} = $3;
+            $decoded{tests}[$line_id]{rate}   = $4;
         }
 
         else {