[siesta-commit] siesta/bin nacho,1.24,1.25

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

Update of /cvsroot/siesta/siesta/bin
In directory usw-pr-cvs1:/tmp/cvs-serv19106/bin

Modified Files:
	nacho 
Log Message:
perltidy

Index: nacho
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/nacho,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- nacho	15 Sep 2002 10:47:17 -0000	1.24
+++ nacho	15 Sep 2002 11:34:06 -0000	1.25
@@ -146,7 +146,8 @@
     print "\nThe list $list_id has the following members : \n";
     print "----\n";
     foreach my $user ( $list->members() ) {
-        printf "%s %s <%s>\n", $user->forename()||"", $user->surname()||"", $user->id();
+        printf "%s %s <%s>\n", $user->forename() || "", $user->surname() || "",
+          $user->id();
     }
 
 }
@@ -461,15 +462,15 @@
 
     print "This system currently has these plugins installed : \n\n";
     foreach my $plugin ( Siesta->list_all_plugins() ) {
-       my $class = "Siesta::Plugin::".$plugin; 
-       eval "require $class";
-       die $@ if $@;
+        my $class = "Siesta::Plugin::" . $plugin;
+        eval "require $class";
+        die $@ if $@;
 
-       # h-hack
-       my $tmp = $class."::DESCRIPTION";
-       my $description = $$tmp || "";
-       
-       print "$plugin -\n $description\n\n";
+        # h-hack
+        my $tmp         = $class . "::DESCRIPTION";
+        my $description = $$tmp || "";
+
+        print "$plugin -\n $description\n\n";
     }
 
 }
@@ -864,3 +865,4 @@
 See the files named Artistic and COPYING for details.
 
 =cut
+

• [siesta-commit] siesta/bin nacho,1.24,1.25 clampr 12:34 on 15 Sep 2002

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