trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm - diff

Return to Trango.pm CVS log

Up to [local] / trango / Net-Telnet-Trango / lib / Net / Telnet

version 1.41, 2007/02/07 20:08:32

version 1.42, 2007/05/21 21:24:13

Line 1

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';

Line 946

$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;

}