In perlmodlib.PL, just open files in their original location.

Trying to munge the file to a path in lib/ and then attempting to open that
first doesn't gain anything.

diff --git a/pod/perlmodlib.PL b/pod/perlmodlib.PL
index cec7845..51828c6 100644 (file)
--- a/pod/perlmodlib.PL
+++ b/pod/perlmodlib.PL
@@ -35,16 +35,12 @@ my %suppressed = map {$_ => 1} qw(
 
 for (@MANIFEST) {
     my $filename;
-    next unless s|^lib/|| or m|^ext/|;
-    my ($origfilename) = ($filename) = m|^(\S+)|;
-    $filename =~ s|^[^/]+/|| if $filename =~ s|^ext/||;
+    next unless m|^lib/| or m|^ext/|;
+    my ($filename) = m|^(\S+)|;
     next unless $filename =~ m!\.p(m|od)$!;
-    unless (open (MOD, "../lib/$filename")) {
-        unless (open (MOD, "../$origfilename")) {
-            warn "Couldn't open ../$origfilename: $!";
-            next;
-        }
-        $filename = $origfilename;
+    unless (open MOD, '<', "../$filename") {
+       warn "Couldn't open ../$filename: $!";
+       next;
     }