X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=tools%2FPM-Pod2html-snippet.pl;h=cabe38fca2b5f6cfb796768f53066fbb320f2061;hb=e52692dea012c7ff056c9ef6592b3fc1279ce6dd;hp=816558fd15dd150ae3fb5102553cce66212cdfc8;hpb=6ad94bf91672b730449f6799709fb6359a024636;p=sdlgit%2FSDL-Site.git

diff --git a/tools/PM-Pod2html-snippet.pl b/tools/PM-Pod2html-snippet.pl
index 816558f..cabe38f 100644
--- a/tools/PM-Pod2html-snippet.pl
+++ b/tools/PM-Pod2html-snippet.pl
@@ -7,9 +7,10 @@ use File::Spec;
 use Pod::Xhtml;
 
 #system('git pull');
-
-my $input_path   = 'C:/SDL_perl/lib/pods';
+my $input_path   = 'C:/SDL_perl/lib/pods'; 
+   $input_path   = $ARGV[0] unless !$ARGV[0];
 my $output_path  = 'F:/htdocs/SDL-Site/pages';
+   $output_path   = $ARGV[0] unless !$ARGV[1];
 my $parser       = Pod::Xhtml->new(FragmentOnly => 1);
 my %module_names = ();
 my $fh;