I now generate a README.POD ONLY if requested

This commit is contained in:
Dima Kogan 2011-01-26 22:10:55 -08:00
parent 10b47ec3cd
commit 63b691c728

View File

@ -19,10 +19,15 @@ WriteMakefile
clean => { FILES => 'feedGnuplot-*' },
);
# reroute the main POD into a separate README.pod
# reroute the main POD into a separate README.pod if requested. This is here
# purely to generate a README.pod for the github front page
if(exists $ARGV[0] && $ARGV[0] eq 'README.pod')
{
open SCRIPT, 'bin/feedGnuplot' or die "Couldn't open main script";
open README, '>README.pod' or die "Couldn't open README.pod";
while (<SCRIPT>)
{
if(/^=/../^=cut/) { print README; }
if (/^=/../^=cut/)
{ print README; }
}
}