| … | |
… | |
| 661 | |
661 | |
| 662 | $src = $ppi->serialize; |
662 | $src = $ppi->serialize; |
| 663 | } else { |
663 | } else { |
| 664 | warn "WARNING: $pm{$pm}: PPI failed to parse this file\n"; |
664 | warn "WARNING: $pm{$pm}: PPI failed to parse this file\n"; |
| 665 | } |
665 | } |
| 666 | } elsif ($STRIP =~ /pod/i && $pm ne "Opcode.pm") { # opcode parses it's own pod |
666 | } elsif ($STRIP =~ /pod/i && $pm ne "Opcode.pm") { # opcode parses its own pod |
| 667 | require Pod::Strip; |
667 | require Pod::Strip; |
| 668 | |
668 | |
| 669 | my $stripper = Pod::Strip->new; |
669 | my $stripper = Pod::Strip->new; |
| 670 | |
670 | |
| 671 | my $out; |
671 | my $out; |
