===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -r1.46 -r1.47
--- 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 17:40:00	1.47
@@ -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.46 2008/02/08 17:34:10 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'} ) {