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.55, 2009/07/08 18:00:55

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.54 2008/10/29 17:34:06 andrew Exp $

use strict;

use warnings;

use base 'Net::Telnet';

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;