bin/pod-after-end

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 for my $mod (@ARGV) {
   6     open(my $old, "<$mod") || do {
   7         warn "Failed to open $mod: $!\n";
   8         next;
   9     };
  10
  11     open(my $new, ">$mod.new") || do {
  12         warn "Failed to create $mod.new: $!";
  13         next;
  14     };
  15
  16     my @pod;
  17
  18     while (<$old>) {
  19         if (/^=\w/ .. /^=cut/) {
  20             push(@pod, $_) unless /^=cut/;
  21         }
  22         else {
  23             print $new $_;
  24         }
  25     }
  26
  27     if (@pod) {
  28         print $new "\n__END__\n\n";
  29         print $new @pod;
  30
  31         close($new) || die;
  32
  33         rename($mod, "$mod.orig") || warn "Can't rename $mod: $!";
  34         rename("$mod.new", $mod) || warn "Can't rename $mod.new: $!";
  35     }
  36     else {
  37         print "No pod found in $mod\n";
  38         close($new);
  39         unlink("$mod.new");
  40     }
  41 }