===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2006/09/07 03:49:34	1.14
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2006/09/07 03:59:03	1.15
@@ -1,5 +1,5 @@
 package Net::Telnet::Trango;
-# $RedRiver: Trango.pm,v 1.13 2006/09/07 02:39:36 andrew Exp $
+# $RedRiver: Trango.pm,v 1.14 2006/09/07 02:49:34 andrew Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -993,7 +993,6 @@
 				loc  => $loc,
 				tm   => $tm,
 				suid => $suid,
-				cur_tm => \$current_tm,
 			};
 		} elsif ($line =~ /(\d+)\s+entries/) {
 			$total_entries = $1;
@@ -1001,6 +1000,9 @@
 			$current_tm = $1
 		}
 	}
+
+	map { $_->{'cur_tm'} = $current_tm } @decoded;
+
 	if (scalar @decoded == $total_entries) {
 		return \@decoded;
 	} else {