Remove duplicate comment from sv.h

[perl5.git] / installperl

diff --git a/installperl b/installperl
index 74856aa..7ce56c3 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -661,7 +661,7 @@ sub safe_rename {
        for ($i = 1; $i < 50; $i++) {
            last if rename($to, "$to.$i");
        }
-       warn("Cannot rename to `$to.$i': $!"), return 0
+       warn("Cannot rename to '$to.$i': $!"), return 0
           if $i >= 50; # Give up!
     }
     link($from,$to) || return 0;
@@ -714,19 +714,21 @@ sub installlib {
     # ignore the test extensions
     return if $dir =~ m{\bXS/(?:APItest|Typemap)\b};
     return if $name =~ m{\b(?:APItest|Typemap)\.pm$};
+    # ignore the build support code
+    return if $name =~ /\bbuildcustomize\.pl$/;
     # ignore the demo files
     return if $dir =~ /\b(?:demos?|eg)\b/;
     # ignore unneeded unicore files
     if ( $dir =~ /^unicore/ ) {
       if ( $name =~ /\.txt\z/ ) {
         # We can ignore most, but not all .txt files
-        return unless $name =~ /\A(?:UnicodeData|Blocks|Scripts|CompositionExclusions|CaseFolding|SpecialCasing|NamedSequences)\.txt\z/;
+        return unless $name =~ /\A(?:Blocks|CaseFolding|SpecialCasing|NamedSequences)\.txt\z/;
       }
       else {
         # TestProp only needed during testing
         return if $name =~ /\ATestProp.pl\z/;
         # we need version and *.pl files and can skip the rest
-        return unless $name =~ /\A(?:version|\w+\.pl)\z/;
+        return unless $name =~ /\A(?:version|\w+\.p[lm])\z/;
       }
     }