From: Tim Bunce <Tim.Bunce@ig.co.uk>
Date: Fri, 5 Sep 1997 00:00:00 +0000 (+0000)
Subject: update to installperl for perl5.004_02 to skip CVS dir
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=efc5ad56f94fefba21b27fe9986ccf6a3501f360;p=p5sagit%2Fp5-mst-13.2.git

update to installperl for perl5.004_02 to skip CVS dir

(this is the same change as commit 4b66953f587b2138e003f8c94d1fd938314f4325, but as applied)
---

diff --git a/installperl b/installperl
index 9686bfb..e999d3b 100755
--- a/installperl
+++ b/installperl
@@ -128,9 +128,9 @@ push(@corefiles,'perl.exp') if $^O eq 'aix';
 push(@corefiles,'sperl.o') if -f 'sperl.o';
 foreach $file (@corefiles) {
     # HP-UX (at least) needs to maintain execute permissions
-    # on dynamically-loaded libraries.
+    # on dynamically-loadable libraries. So we do it for all.
     copy_if_diff($file,"$installarchlib/CORE/$file")
-	and chmod($file =~ /^\.(so|$dlext)$/ ? 0555 : 0444,
+	and chmod($file =~ /\.(so|\Q$dlext\E)$/ ? 0555 : 0444,
 		   "$installarchlib/CORE/$file");
 }
 
@@ -401,6 +401,11 @@ sub installlib {
     local($depth) = $dir ? "lib/$dir" : "lib";
 
     my $name = $_;
+
+    if ($name eq 'CVS' && -d $name) {
+	$File::Find::prune = 1;
+	return;
+    }
     
     # ignore patch backups and the .exists files.
     return if $name =~ m{\.orig$|~$|^\.exists};