From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Wed, 1 Aug 2007 12:28:49 +0000 (-0400)
Subject: For files ignored by installperl:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae5e75fdf25a22fae617e01afaae6c0da8a1b964;p=p5sagit%2Fp5-mst-13.2.git

For files ignored by installperl:

- Split README handling into a separate case.
- Extend the MANIFEST pattern to include .SKIP.

Based on the following:

Subject: [PATCH] Don't install MANIFEST.SKIP files
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-Id: <1ff86f510708010928o48ea74d6je46148b0a409bffa@mail.gmail.com>

p4raw-id: //depot/perl@31672
---

diff --git a/installperl b/installperl
index a49e9ba..1bb4845 100755
--- a/installperl
+++ b/installperl
@@ -841,7 +841,8 @@ sub installlib {
 
     # ignore READMEs, MANIFESTs, INSTALL docs, META.ymls and change logs.
     # Changes.e2x and README.e2x are needed by enc2xs.
-    return if $name =~ m{^(?:README(?:\.\w+)?|MANIFEST|META\.yml|INSTALL)$} && $name ne 'README.e2x';
+    return if $name =~ m{^(?:README(?:\.\w+)?)$} && $name ne 'README.e2x';
+    return if $name =~ m{^(?:MANIFEST(?:\.SKIP)?|META\.yml|INSTALL)$};
     return if $name =~ m{^(?:TODO|BUGS|CREDITS)$}i;
     return if $name =~ m{^change(?:s|log)(?:\.libnet)?$}i;