===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.21
retrieving revision 1.23
diff -u -r1.21 -r1.23
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2006/10/05 18:10:39	1.21
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/01/08 22:16:29	1.23
@@ -1,5 +1,5 @@
 package Net::Telnet::Trango;
-# $RedRiver: Trango.pm,v 1.20 2006/09/12 02:20:39 andrew Exp $
+# $RedRiver: Trango.pm,v 1.21 2006/10/05 17:10:39 andrew Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -470,20 +470,16 @@
 
 =item su_password
 
-C<su_password('all'|suid, 'new_password')>
+C<su_password('new_password'[, 'suid'])> If no suid is specified,
+the default is "all".
 
 =cut
 
 sub su_password
 {
   my $self     = shift;
-  my $su       = shift || '!';
   my $new_pass = shift || '';
-
-  unless (defined $su) {
-    warn "No su passed!" 
-    #return undef;
-  }
+  my $su       = shift || 'all';
 
   unless (defined $new_pass) {
     warn "No new password!"