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-*' }, 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
open SCRIPT, 'bin/feedGnuplot' or die "Couldn't open main script"; # purely to generate a README.pod for the github front page
open README, '>README.pod' or die "Couldn't open README.pod"; if(exists $ARGV[0] && $ARGV[0] eq 'README.pod')
while(<SCRIPT>)
{ {
if(/^=/../^=cut/) { print README; } 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; }
}
} }