===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2008/02/08 17:40:00	1.47
+++ 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.46 2008/02/08 17:34:10 andrew Exp $
+# $RedRiver: Trango.pm,v 1.47 2008/02/08 17:40:00 andrew Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -1117,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 {