summaryrefslogtreecommitdiff
path: root/installperl
diff options
context:
space:
mode:
authorDavid Dyck <david.dyck@fluke.com>2001-10-01 05:17:36 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2001-10-09 12:23:27 +0000
commit835f8a63f39ee0b6fcc61424cf4e964d4562ffbb (patch)
tree39ea37c0788c398408eb1a0ae766472a64e9ef3d /installperl
parent3a0827a6d3b6f58ae9951a917a4f12158650c772 (diff)
downloadperl-835f8a63f39ee0b6fcc61424cf4e964d4562ffbb.tar.gz
[ID 20011001.009] /usr/bin/perl (in addition to /usr/local/bin/perl)
Message-Id: <200110011917.MAA11879@dd.tc.fluke.com> p4raw-id: //depot/perl@12377
Diffstat (limited to 'installperl')
-rwxr-xr-xinstallperl6
1 files changed, 1 insertions, 5 deletions
diff --git a/installperl b/installperl
index 86d9c2c630..fb16bab0be 100755
--- a/installperl
+++ b/installperl
@@ -425,11 +425,7 @@ if ($Config{installusrbinperl} && $Config{installusrbinperl} eq 'define' &&
(-l $usrbinperl) &&
((readlink $usrbinperl) eq $expinstperl));
}
- if ((! $mainperl_is_instperl) &&
- (yn("Many scripts expect perl to be installed as $usrbinperl.\n" .
- "Do you wish to have $usrbinperl be the same as\n" .
- "$expinstperl? [y] ")))
- {
+ if (! $mainperl_is_instperl) {
unlink($usrbinperl);
( $Config{'d_link'} eq 'define' &&
eval { CORE::link $instperl, $usrbinperl } ) ||