![[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|
Return to Trango.pm CVS log | Up to [local] / trango / Net-Telnet-Trango / lib / Net / Telnet |
| version 1.6, 2006/06/28 23:00:15 | version 1.7, 2006/06/28 23:33:18 | ||
|---|---|---|---|
|
|
||
| package Net::Telnet::Trango; | package Net::Telnet::Trango; | ||
| # $RedRiver: Trango.pm,v 1.5 2006/01/03 00:22:19 andrew Exp $ | # $RedRiver: Trango.pm,v 1.6 2006/06/28 22:00:15 andrew Exp $ | ||
| use strict; | use strict; | ||
| use warnings; | use warnings; | ||
| use base 'Net::Telnet'; | use base 'Net::Telnet'; | ||
|
|
||
| my $self = shift; | my $self = shift; | ||
| my $suid = shift; | my $suid = shift; | ||
| if ($suid =~ /\D/) { | if (lc($suid) ne 'all' || $suid =~ /\D/) { | ||
| return undef; | return undef; | ||
| } | } | ||