=================================================================== RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v retrieving revision 1.41 retrieving revision 1.42 diff -u -r1.41 -r1.42 --- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm 2007/02/07 20:08:32 1.41 +++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm 2007/05/21 21:24:13 1.42 @@ -1,6 +1,6 @@ package Net::Telnet::Trango; -# $RedRiver: Trango.pm,v 1.40 2007/02/06 21:15:28 andrew Exp $ +# $RedRiver: Trango.pm,v 1.41 2007/02/07 20:08:32 andrew Exp $ use strict; use warnings; use base 'Net::Telnet'; @@ -946,10 +946,10 @@ $err = _decode_lines(@lines); } - if (ref $err eq 'HASH' && $err ->{ERR}) { + if (ref $err eq 'HASH' && $err->{ERR}) { $self->last_error($err->{ERR} ); } else { - $self->last_error("Error with command ($cfg{'String'}): $last"); + $self->last_error("Error with command ($cmd{'String'}): $last"); } return; }