[siesta-commit] siesta/lib Siesta.pm,1.16,1.17

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

From: clampr
Subject: [siesta-commit] siesta/lib Siesta.pm,1.16,1.17
Date: 16:06 on 08 Sep 2002
Update of /cvsroot/siesta/siesta/lib
In directory usw-pr-cvs1:/tmp/cvs-serv15408

Modified Files:
	Siesta.pm 
Log Message:
fix layout


Index: Siesta.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- Siesta.pm	6 Sep 2002 13:18:17 -0000	1.16
+++ Siesta.pm	8 Sep 2002 15:06:28 -0000	1.17
@@ -76,27 +76,24 @@
     $storage;
 }
 
-sub list_all_plugins
-{
-	my @dirs;
+sub list_all_plugins {
+    my @dirs;
 
-	foreach my $dir (map { "$_/Siesta/Plugin" } @INC)
-	{
-		push @dirs, $dir if (-e $dir && -d $dir);
-	}
+    foreach my $dir (map { "$_/Siesta/Plugin" } @INC) {
+        push @dirs, $dir if (-e $dir && -d $dir);
+    }
 
-	my @files = find (name => "*.pm", in => \@dirs);
-	my @plugins;
+    my @files = find (name => "*.pm", in => \@dirs);
+    my @plugins;
 
-	foreach my $file (@files)
-	{
-        	$file =~ s!^.*[\\/](.+=?)\.pm!$1!i;
-        	push @plugins, $file;
-	}
+    foreach my $file (@files) {
+        $file =~ s!^.*[\\/](.+=?)\.pm!$1!i;
+        push @plugins, $file;
+    }
 
-	my %plugins = map { $_ => 1 } @plugins;
+    my %plugins = map { $_ => 1 } @plugins;
 
-	return sort keys %plugins
+    return sort keys %plugins
 }
 
 



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