Change 31682: [PATCH] installperl patch

[Abhijit Menon-Sen]

Change 31682 by [EMAIL PROTECTED] on 2007/08/04 01:53:19

        Subject: [PATCH] installperl patch
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Fri, 3 Aug 2007 09:55:10 -0400
        Message-Id: <[EMAIL PROTECTED]>
        
        (Applied after splitting up the tests a little.)

Affected files ...

... //depot/perl/installperl#146 edit

Differences ...

==== //depot/perl/installperl#146 (xtext) ====
Index: perl/installperl
--- perl/installperl#145~31676~ 2007-08-02 21:12:27.000000000 -0700
+++ perl/installperl    2007-08-03 18:53:19.000000000 -0700
@@ -837,15 +837,16 @@
     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];
End of Patch.