===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -r1.52 -r1.53
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2008/02/18 19:13:32	1.52
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2008/10/29 18:27:31	1.53
@@ -1,6 +1,6 @@
 package Net::Telnet::Trango;
 
-# $RedRiver: Trango.pm,v 1.51 2008/02/18 16:37:35 andrew Exp $
+# $RedRiver: Trango.pm,v 1.52 2008/02/18 19:13:32 andrew Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -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};