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.54, 2008/10/29 18:34:06

version 1.56, 2009/07/08 18:16:41

Line 1

package Net::Telnet::Trango;

# $RedRiver: Trango.pm,v 1.53 2008/10/29 17:27:31 andrew Exp $

# $RedRiver: Trango.pm,v 1.55 2009/07/08 17:00:55 andrew Exp $

use strict;

use warnings;

use base 'Net::Telnet';

Line 43

=cut

our $VERSION = '0.01';

our $VERSION = '0.02';

my $EMPTY = q{};

my $SPACE = q{ };

Line 704

}

my $new_mac = $mac;

$new_mac =~ s/[^0-9A-Fa-f]//;

$new_mac =~ s/[^0-9A-Fa-f]//g;

unless ( length $new_mac == 12 ) {

$self->last_error("Invalid MAC '$mac'");

return;