[freeside-commits] freeside/bin pod2x,1.7.2.5,1.7.2.6

Ivan,,, ivan at wavetail.420.am
Wed Oct 3 19:52:09 PDT 2007


Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail:/tmp/cvs-serv15078/bin

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	pod2x 
Log Message:
wikify individual files

Index: pod2x
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/pod2x,v
retrieving revision 1.7.2.5
retrieving revision 1.7.2.6
diff -u -d -r1.7.2.5 -r1.7.2.6
--- pod2x	4 Oct 2007 02:22:43 -0000	1.7.2.5
+++ pod2x	4 Oct 2007 02:52:06 -0000	1.7.2.6
@@ -66,15 +66,22 @@
 
 $mvs->do_login;
 
-foreach my $file (
-  glob("$site_perl/*.pm"),
-  glob("$site_perl/*/*.pm"),
-  glob("$site_perl/*/*/*.pm"),
-  glob("$site_perl/*/*/*/*.pm"),
-  glob("$site_perl/bin/*.pod"),
-  glob("./fs_selfservice/FS-SelfService/*.pm"),
-  glob("./fs_selfservice/FS-SelfService/*/*.pm"),
-) {
+my @files;
+if ( @ARGV ) {
+  @files = @ARGV;
+} else {
+  @files =
+    glob("$site_perl/*.pm"),
+    glob("$site_perl/*/*.pm"),
+    glob("$site_perl/*/*/*.pm"),
+    glob("$site_perl/*/*/*/*.pm"),
+    glob("$site_perl/bin/*.pod"),
+    glob("./fs_selfservice/FS-SelfService/*.pm"),
+    glob("./fs_selfservice/FS-SelfService/*/*.pm"),
+  ;
+}
+
+foreach my $file (@files) {
   next if $file =~ /(^|\/)blib\//;
   next if $file =~ /(^|\/)CVS\//;
   #$file =~ /\/([\w\-]+)\.pm$/ or die "oops file $file";



More information about the freeside-commits mailing list