===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.53
retrieving revision 1.56
diff -u -r1.53 -r1.56
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2008/10/29 18:27:31	1.53
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2009/07/08 18:16:41	1.56
@@ -1,6 +1,6 @@
 package Net::Telnet::Trango;
 
-# $RedRiver: Trango.pm,v 1.52 2008/02/18 19:13:32 andrew Exp $
+# $RedRiver: Trango.pm,v 1.55 2009/07/08 17:00:55 andrew Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -43,7 +43,7 @@
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 my $EMPTY = q{};
 my $SPACE = q{ };
@@ -61,7 +61,7 @@
         [Decode => 0,]);
 
 Same as new from L<Net::Telnet> but sets the default Trango Prompt: 
-'/[#$]>\s*\Z/'
+'/[\$#]>\s*\Z/'
 
 It also takes an optional parameter 'Decode'.  If not defined it
 defaults to 1, if it is set to 0, it will not decode the output and
@@ -81,7 +81,7 @@
         %args = @_;
     }
 
-    $args{'Prompt'} ||= '/[$#]>\s*\r?\n?$/';
+    $args{'Prompt'} ||= '/[\$#]>\s*\r?\n?$/';
 
     foreach my $key ( keys %args ) {
         $PRIVATE{$key} = $args{$key};
@@ -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;