[siesta-commit] siesta/bin nacho,1.11,1.12

[prev] [thread] [next] [lurker] [Date index for 2002/09/10]

From: clampr
Subject: [siesta-commit] siesta/bin nacho,1.11,1.12
Date: 20:08 on 10 Sep 2002
Update of /cvsroot/siesta/siesta/bin
In directory usw-pr-cvs1:/tmp/cvs-serv32758/bin

Modified Files:
	nacho 
Log Message:
have ->new_from_hash take a hash not a hashref

Index: nacho
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/nacho,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- nacho	10 Sep 2002 18:54:34 -0000	1.11
+++ nacho	10 Sep 2002 19:08:03 -0000	1.12
@@ -138,13 +138,13 @@
     my $forename = shift || die "You need to pass a forename\n";
     my $surname  = shift || die "You need to pass a surname\n";
 
-    my $hash = {
+    my %hash = {
                  id       => $user_id,
                  forename => $forename,
                  surname  => $surname,
                  };
 
-    my $user = Siesta::User->new_from_hash($hash);
+    my $user = Siesta::User->new_from_hash(%hash);
     $user->save() || die "Errk : that failed to save";
 
     print "User $forename $surname <$user_id> added\n";
@@ -233,12 +233,10 @@
     my $return_path = shift || die "You must supply a bounce address\n";
 
     my $list = Siesta::List->new_from_hash(
-                                            {
-                                              id           => $list_id,
-                                              owner        => $list_owner,
-                                              post_address => $post_addr,
-                                              return_path  => $return_path,
-                                            }
+                                            id           => $list_id,
+                                            owner        => $list_owner,
+                                            post_address => $post_addr,
+                                            return_path  => $return_path,
       )
       || die "Failed to create a new list\n";
 
@@ -525,7 +523,7 @@
 
 =head2 show-plugin-config-default [ plugin id ]
 
-List the current default config options 	
+List the current default config options         
 
 =cut
 
@@ -564,7 +562,7 @@
 
 =head2 show-plugin-config-user [ plugin id ] [ user id ]
 
-List the current per-user options for this user and this plugin	
+List the current per-user options for this user and this plugin 
 
 =cut
 
@@ -606,7 +604,7 @@
 
 =head2 show-plugin-config-list [ plugin id ] [ list id ]
 
-List the current per-list options for this list and this plugin	
+List the current per-list options for this list and this plugin 
 
 =cut
 
@@ -649,7 +647,7 @@
 
 =head2 show-plugin-config-userlist [ plugin id ] [ user id ] [ list id ]
 
-List the current per-user options for this user on this list and this plugin	
+List the current per-user options for this user on this list and this plugin    
 
 =cut
 



Generated at 13:57 on 01 Jul 2004 by mariachi 0.52