From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 13 Jun 2009 09:25:12 +0000 (+0100)
Subject: In perlmodlib.PL, just open files in their original location.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e8041d9b8361b47aafe5f4dc70a7ae9b018574c2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
     }