home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Updates
/
Perl
/
RPC
/
!Perl
/
scripts
/
maketext
< prev
next >
Wrap
Text File
|
1998-08-01
|
588b
|
29 lines
#! perl
use File::Basename;
use Pod::ParserText;
use RISCOS::File 'globlist';
$verbose = 1;
$baseout = '/Docs/RISCOS-Library-Docs';
unless (@ARGV) {
@ARGV = 'pod/*.pod';
$baseout = '/Docs/'
}
for (reverse globlist @ARGV)
{
$parser = new Pod::ParserText;
$base = basename $_, '.pod';
$out = "$baseout/$base";
print STDERR "< $_ >$out\n" if $verbose;
$parser->parse_from_file($_, "$out");
if (-z $out) {
if (unlink $out) {
print STDERR "Removed zero length $out\n";
} else {
print STDERR "Failed to remove zero length $out: $!\n";
}
}
}