use strict;
open (POD, "pod2text MP3Play.pm |") or die "can't fork";
my $skip = 0;
while (<POD>) {
if ( not $skip ) {
if ( /^CONSTRUCTOR/ ) {
$skip = 1;
next;
}
print;
} else {
if ( /^TODO/ ) {
$skip = 0;
print " You will find detailed information about the interface of\n";
print " this module in its POD documentation.\n\n";
print;
next;
}
}
}
close POD or die "can't run pod2text";
print "CHANGES\n";
open (CHANGES, "Changes") or die "can't read Changes";
while (<CHANGES>) {
print " " if ! m/^\s/;
print;
}
close CHANGES;