| version 1.46, 2008/02/08 17:34:10 |
version 1.47, 2008/02/08 17:40:00 |
|
|
| package Net::Telnet::Trango; |
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 strict; |
| use warnings; |
use warnings; |
| use base 'Net::Telnet'; |
use base 'Net::Telnet'; |
|
|
| $self->last_vals($vals); |
$self->last_vals($vals); |
| |
|
| my $last = $self->lastline; |
my $last = $self->lastline; |
| |
$self->last_error($EMPTY); |
| |
|
| if ( ( not $cfg{'expect'} ) || $last =~ /$cfg{'expect'}$/ ) { |
if ( ( not $cfg{'expect'} ) || $last =~ /$cfg{'expect'}$/ ) { |
| if ( $cfg{'cmd_disconnects'} ) { |
if ( $cfg{'cmd_disconnects'} ) { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Trango.pm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / trango / Net-Telnet-Trango / lib / Net / Telnet