Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 24 lines (20 sloc) 669 Bytes
#!/usr/bin/perl -w
use File::Copy;
use File::Spec::Functions;
for (qw(INSTALL README)) {
print "Converting $_.pod to text\n";
system "pod2text $_.pod > $_";
MacPerl::SetFileInfo($ENV{EDITOR} || 'R*ch', 'TEXT', $_)
if $^O eq 'MacOS';
print "Converting $_.pod to HTML\n";
system "pod2html $_.pod > $_.html";
MacPerl::SetFileInfo($ENV{EDITOR} || 'R*ch', 'TEXT', "$_.html")
if $^O eq 'MacOS';
print "Moving $_ to parent directory\n";
move $_, catfile(updir, $_) or warn "Couldn't copy\n";
}
for (qw(pod2html-dircache pod2html-itemcache pod2htmd.x~~ pod2htmi.x~~)) {
next unless -e $_;
print "Unlinking $_\n";
unlink $_ or warn "Couldn't unlink $_: $!";
}