===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -r1.54 -r1.55
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2008/10/29 18:34:06	1.54
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2009/07/08 18:00:55	1.55
@@ -1,6 +1,6 @@
 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';
@@ -704,7 +704,7 @@
     }
 
     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;