fix API upload

diff --git a/bin/pod2x b/bin/pod2x
index 741b784..6b7153f 100755 (executable)
--- a/bin/pod2x
+++ b/bin/pod2x
@@ -59,7 +59,7 @@ foreach my $file (
 }
 
 my $mvs = WWW::Mediawiki::Client->new(
 }
 
 my $mvs = WWW::Mediawiki::Client->new(

-            'host'           => 'www.sisd.com',
+            'host'           => 'www.freeside.biz',

             'wiki_path'      => 'mediawiki/index.php',
             'username'       => $mw_username,
             'password'       => $mw_password,
             'wiki_path'      => 'mediawiki/index.php',
             'username'       => $mw_username,
             'password'       => $mw_password,


@@ -72,7 +72,7 @@ my @files;
 if ( @ARGV ) {
   @files = @ARGV;
 } else {
 if ( @ARGV ) {
   @files = @ARGV;
 } else {

-  @files =
+  @files = (

     glob("$site_perl/*.pm"),
     glob("$site_perl/*/*.pm"),
     glob("$site_perl/*/*/*.pm"),
     glob("$site_perl/*.pm"),
     glob("$site_perl/*/*.pm"),
     glob("$site_perl/*/*/*.pm"),


@@ -80,7 +80,8 @@ if ( @ARGV ) {
     glob("$site_perl/bin/*.pod"),
     glob("./fs_selfservice/FS-SelfService/*.pm"),
     glob("./fs_selfservice/FS-SelfService/*/*.pm"),
     glob("$site_perl/bin/*.pod"),
     glob("./fs_selfservice/FS-SelfService/*.pm"),
     glob("./fs_selfservice/FS-SelfService/*/*.pm"),

-  ;
+  );
+

 }
 
 foreach my $file (@files) {
 }
 
 foreach my $file (@files) {