From: Perl 5 Porters <perl5-porters.nicoh.com>
Date: Wed, 3 Jan 1996 01:33:57 +0000 (+0000)
Subject: perl 5.002beta1h patch: installperl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd6decf0ecc1084ce27bf33d6b21eccb4b0a6b07;p=p5sagit%2Fp5-mst-13.2.git

perl 5.002beta1h patch: installperl

Use new location of utility scripts.

Eliminate double '//' and extra "".
---

diff --git a/installperl b/installperl
index 45f9c7e..be8c8a8 100755
--- a/installperl
+++ b/installperl
@@ -13,14 +13,15 @@ while (@ARGV) {
 
 umask 022;
 
-@scripts = ('cppstdin', 'c2ph', 'h2ph', 'h2xs', 'pstruct', 
-	    'x2p/s2p', 'x2p/find2perl',
-	    'perldoc',
-	    'pod/pod2man', 'pod/pod2html', 'pod/pod2latex' );
+@scripts = qw(cppstdin
+		utils/c2ph utils/h2ph utils/h2xs utils/pstruct
+		utils/perlbug utils/perldoc
+		x2p/s2p x2p/find2perl
+		pod/pod2man pod/pod2html pod/pod2latex pod/pod2text);
 
 # pod documentation now handled by separate installman script.
 # These two are archaic leftovers.
-@manpages = ('x2p/a2p.man', 'x2p/s2p.man');
+@manpages = qw(x2p/a2p.man x2p/s2p.man);
 
 @pods = (<pod/*.pod>);
 
@@ -374,7 +375,7 @@ sub installlib {
 	if ($?) {
 	    &unlink("$installlib/$name");
 	    &makedir("$installlib/$dir");
-	    cp_if_diff("$_", "$installlib/$dir/$_");
+	    cp_if_diff($_, "$installlib/$name");
 	    # HP-UX (at least) needs to maintain execute permissions
 	    # on dynamically-loaded libraries.
 	    if ($name =~ /\.(so|$dlext)$/o) {