view release on metacpan or  search on metacpan

pod/mvfor  view on Meta::CPAN

#!/usr/local/bin/new/perl -w
use strict;

$/ = '';
$^I = '.bak';

my @undo;
my $edits = 0;
my $seen_NAME = 0;
my @pend;

while (<>)
 {
  if (/^=for/ && !$seen_NAME)

pod/recat  view on Meta::CPAN

    push(@{$cat{$sec}},$file);
   }
 }

$^I = ".bak";
foreach my $sec (@cat)
 {
  foreach my $file (@{$cat{$sec}})
   {
    my $undo = 0;
    $/ = "";
    @ARGV = ($file);
    while (<>)
     {
      if (/^=head1\sNAME/)
       {
        do {
             print if (defined $^I);
             $_ = <>;
           } until (eof || /^=\w+/);
        if (/^=for\s+category\s+(.*)\n+/)