--- Unix-Sysadmin-0.01-orig/Sysadmin/List.pm	Wed Oct 25 13:14:47 2000
+++ Unix-Sysadmin-0.01/Sysadmin/List.pm	Thu Oct 26 12:51:13 2000
@@ -1,4 +1,4 @@
-#$Id: List.pm,v 1.20 2000/10/25 20:14:47 hbo Exp $
+#$Id: List.pm,v 1.21 2000/10/26 19:51:13 hbo Exp $
 # Class to manipulate lists of objects
 
 package Unix::Sysadmin::List;
@@ -305,33 +305,33 @@
 
 =item Unix::Sysadmin::List::Automount
 
-See L<Unix::Sysadmin::List::Automount> in section 5 of the manual for the 
+See L<Unix::Sysadmin::Automount.list> in section %%5 of the manual for the 
 format of the file maintained by this class. See
 L<"Automount Specific Methods"> in this manpage for methods specific to 
 this subclass.
 
 =item Unix::Sysadmin::List::Group
 
-See L<Unix::Sysadmin::List::User> in section 5 of the manual for the format
+See L<Unix::Sysadmin::Group.list> in section %%5 of the manual for the format
 of the file maintained by this subclass. See See L<"Group Specific Methods">
 in this manpage for methods specific to this subclass.
 
 =item Unix::Sysadmin::List::Host
 
-See L<Unix::Sysadmin::List::Host> in section 5 of the manual for the format
+See L<Unix::Sysadmin::Host.list> in section %%5 of the manual for the format
 of the file maintained by this subclass. See L<"Host Specific Methods"> 
 in this manpage for methods specific to this subclass.
 
 =item Unix::Sysadmin::List::Netgroup
 
-See L<Unix::Sysadmin::List::Netgroup> in section 5 of the manual for the 
+See L<Unix::Sysadmin::Netgroup.list> in section %%5 of the manual for the 
 format of the file maintained by this class. See
 L<"Netgroup Specific Methods"> in this manpage for methods specific to 
 this subclass.
 
 =item Unix::Sysadmin::List::User
 
-See L<Unix::Sysadmin::List::User> in section 5 of the manual for the format 
+See L<Unix::Sysadmin::User.list> in section %%5 of the manual for the format 
 of the file maintained by this subclass. See See L<"User Specific Methods"> for
 methods specific to this subclass.
 
--- Unix-Sysadmin-0.01-orig/Sysadmin/List/Netgroup.pm	Wed Oct 25 13:14:48 2000
+++ Unix-Sysadmin-0.01/Sysadmin/List/Netgroup.pm	Sun Oct 29 07:58:05 2000
@@ -229,11 +229,12 @@
   # called as $self->search("spec","value"), searches $self->{OBJECTS} by
   # "spec" (must be valid sortorder for the underlying object) 
   # for "value". Returns a new list object or undef if no object matches.
-  my ($self,$argshref) = @_;
+  my $self=shift;
+  my %args=@_;
   my ($spec,$multi);
 
-  $spec=$$argshref{SEARCH};
-  $multi=$$argshref{VALUE};
+  $spec=$args{SEARCH};
+  $multi=$args{VALUE};
 
   my($child,$list,$target,$idx,@multi);
   $target = lc $spec;
--- Unix-Sysadmin-0.01-orig/test.pl	Fri Sep 29 21:06:44 2000
+++ Unix-Sysadmin-0.01/test.pl	Sun Oct 29 07:58:49 2000
@@ -53,10 +53,9 @@
 if ($skiparch){
   printf "ok %d skip\n",$t++;
 } else {
-  $host->doCmd({
-		HOST=>$host,
-		COMMAND=>"LS"
-	       }
+  $host->doCmd(
+	       HOST=>$host,
+	       COMMAND=>"LS"
 	      )
     || (print("not ok 3\n"), exit);
   printf "ok %d\n",$t++;
@@ -139,11 +138,11 @@
   || (print("not ok 16\n"), exit);
 printf "ok %d\n",$t++;
 
-($user=$ul->search({SEARCH=>'joe1'}))
+($user=$ul->search(SEARCH=>'joe1'))
   || (print("not ok 17\n"), exit);
 printf "ok %d\n",$t++;
 
-($host=$hl->search({SEARCH=>'magumbaserver'}))
+($host=$hl->search(SEARCH=>'magumbaserver'))
   || (print("not ok 18\n"), exit);
 printf "ok %d\n",$t++;
 
@@ -152,7 +151,7 @@
   && (print("not ok 19\n"), exit);
 printf "ok %d\n",$t++;
 
-($host=$hl->search({SEARCH=>'foo1'}))
+($host=$hl->search(SEARCH=>'foo1'))
   || (print("not ok 20\n"), exit);
 printf "ok %d\n",$t++;
 
@@ -161,7 +160,7 @@
   || (print("not ok 21\n"), exit);
 printf "ok %d\n",$t++;
 
-($user=$ul->search({SEARCH=>'jane2'}))
+($user=$ul->search(SEARCH=>'jane2'))
   || (print("not ok 22\n"), exit);
 printf "ok %d\n",$t++;
 
@@ -169,7 +168,7 @@
   && (print("not ok 23\n"), exit);
 printf "ok %d\n",$t++;
 
-($user=$ul->search({SEARCH=>'hap'}))
+($user=$ul->search(SEARCH=>'hap'))
   || (print("not ok 24\n"), exit);
 printf "ok %d\n",$t++;