Better document the difference between a block and a script.

[p5sagit/p5-mst-13.2.git] / installperl

diff --git a/installperl b/installperl
index e681eae..b7df66f 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -30,6 +30,10 @@ use ExtUtils::Packlist;
 use Config;
 use subs qw(unlink link chmod);
 
+if ($Config{d_umask}) {
+    umask(022); # umasks like 077 aren't that useful for installations
+}
+
 $Is_NetWare = $Config{osname} eq 'NetWare';
 if ($Is_NetWare) {
        $Is_W32 = 0;
@@ -697,9 +701,6 @@ sub installlib {
     # .exists files, .PL files, and .t files.
     return if $name =~ m{\.orig$|~$|^#.+#$|,v$|^\.exists|\.PL$|\.t$};
 
-    # ignore locale, strict, and warnings test data files
-    return if $name =~ m{^lib/(locale|strict|warnings)/\w+$};
-
     $name = "$dir/$name" if $dir ne '';
 
     my $installlib = $installprivlib;