From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Fri, 3 Aug 2007 09:55:10 +0000 (-0400)
Subject: installperl patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=021db424163d574093ff658e9606a6f31942189d;p=p5sagit%2Fp5-mst-13.2.git

installperl patch
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-Id: <1ff86f510708030655tdef838p859bb1ac7b05dcf9@mail.gmail.com>

(Applied after splitting up the tests a little.)

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

diff --git a/installperl b/installperl
index dd61727..0f7e6eb 100755
--- a/installperl
+++ b/installperl
@@ -837,15 +837,16 @@ sub installlib {
     return if $dir =~ m{\bXS/(?:APItest|Typemap)\b};
     return if $name =~ m{\b(?:APItest|Typemap)\.pm$};
     # ignore the demo files
-    return if $dir =~ /\bdemos?\b/;
+    return if $dir =~ /\b(?:demos?|eg)\b/;
 
     # 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+)?)$} && $name ne 'README.e2x';
-    return if $name =~ m{^(?:MANIFEST|META\.yml|INSTALL)$};
-    return if $name =~ m{^(?:TODO|BUGS|CREDITS)$}i;
+    return if $name =~ m{^(?:MANIFEST|META\.yml)$};
+    return if $name =~ m{^(?:INSTALL|TODO|BUGS|CREDITS)$}i;
     return if $name =~ m{^change(?:s|log)(?:\.libnet)?$}i;
-    return if $name =~ m{^(?:SIGNATURE|PAUSE200\d\.pub)$};  # CPAN files
+    return if $name =~ m{^(?:SIGNATURE|PAUSE200\d\.pub)$}; # CPAN files
+    return if $name =~ m{^(?:NOTES|PATCHING)$}; # ExtUtils files
 
     # if using a shared perl library then ignore:
     # - static library files [of statically linked extensions];