From 003b2d1320abf9ec909f9bbabe7737328fe8fcb2 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 4 Oct 2007 02:52:05 +0000
Subject: [PATCH] wikify individual files

---
 bin/pod2x | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/bin/pod2x b/bin/pod2x
index 329e49192..741b78460 100755
--- a/bin/pod2x
+++ b/bin/pod2x
@@ -68,15 +68,22 @@ my $mvs = WWW::Mediawiki::Client->new(
 
 $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";
-- 
2.11.0