===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/01/03 19:40:03	1.22
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/01/08 22:16:29	1.23
@@ -289,10 +289,6 @@
 
 You need to pass in args => <suid> and it will return the info for that suid.
 
-=item su_testrflink
-
-you need to pass in args => <suid> and it will return the rflink test results for that SU.
-
 =item save_ss
 
 saves the config.  Returns 1 on success, undef on failure.
@@ -317,7 +313,6 @@
   maclist_reset => { String => 'maclist reset', expect => 'done' },
   eth_link    => { String => 'eth link', expect => $success },
   su_info     => { String => 'su info', decode => 'all', expect => $success },
-  su_testrflink=> { String => 'su testrflink', decode => 'each', expect => $success },
   save_ss     => { String => 'save ss', expect => $success },
   opmode      => { decode => 'all',   expect => $success },
   # eth r, w and reset???
@@ -475,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!"