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.

1 files changed, 5 insertions, 9 deletions

diff --git a/pod/perlmodlib.PL b/pod/perlmodlib.PL
index cec7845422..51828c67f5 100644
--- 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;
     }