![[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.57, 2009/07/09 22:50:03 | version 1.58, 2009/07/13 17:33:45 | ||
|---|---|---|---|
|
|
||
| package Net::Telnet::Trango; | package Net::Telnet::Trango; | ||
| # $RedRiver: Trango.pm,v 1.56 2009/07/08 17:16:41 andrew Exp $ | # $RedRiver: Trango.pm,v 1.57 2009/07/09 21:50:03 andrew Exp $ | ||
| use strict; | use strict; | ||
| use warnings; | use warnings; | ||
| use base 'Net::Telnet'; | use base 'Net::Telnet'; | ||
|
|
||
| =cut | =cut | ||
| our $VERSION = '0.03'; | our $VERSION = '0.04'; | ||
| my $EMPTY = q{}; | my $EMPTY = q{}; | ||
| my $SPACE = q{ }; | my $SPACE = q{ }; | ||
|
|
||
| [[:xdigit:]]{2} | [[:xdigit:]]{2} | ||
| ([[:xdigit:]]) | ([[:xdigit:]]) | ||
| ([[:xdigit:]]) | ([[:xdigit:]]) | ||
| \s+ | |||
| (\d+) | |||
| \s+ | \s+ | ||
| (\d+) | (\d+) | ||
| \s+ | \s+ |