#! perl -w
use File::Basename;
use Pod::Parser::DDF;
use RISCOS::File 'globlist';

$verbose = 1;

@ARGV = 'pod/*.pod' unless @ARGV;
for (reverse globlist @ARGV)
{
    $parser = new Pod::Parser::DDF;
    $base = basename $_, '.pod';
    $out = "ddf/$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";
	}
    }
}
