summaryrefslogtreecommitdiff
path: root/installman
diff options
context:
space:
mode:
authorAaron B. Dossett <aaron@iglou.com>2000-10-03 07:03:04 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2000-10-03 15:15:42 +0000
commit18689f1df2fb576c03af71556727eae71184be94 (patch)
treead3980b3b250284e8aece44dbb65800bb06a6796 /installman
parent7ebf56aef9a0edd5d4f5f68bdd8d96e5e1d42b5f (diff)
downloadperl-18689f1df2fb576c03af71556727eae71184be94.tar.gz
Re: PATCH for 20001003.004
Message-Id: <E13gTay-0006od-00@iglou.com> p4raw-id: //depot/perl@7135
Diffstat (limited to 'installman')
-rwxr-xr-xinstallman6
1 files changed, 3 insertions, 3 deletions
diff --git a/installman b/installman
index 72c76fd8a2..1fd964d114 100755
--- a/installman
+++ b/installman
@@ -244,7 +244,7 @@ sub link {
sub rename {
my($from,$to) = @_;
- if (-f $to and not unlink($to)) {
+ if (-f $to and not &unlink($to)) {
my($i);
for ($i = 1; $i < 50; $i++) {
last if CORE::rename($to, "$to.$i");
@@ -252,8 +252,8 @@ sub rename {
warn("Cannot rename to `$to.$i': $!"), return 0
if $i >= 50; # Give up!
}
- link($from,$to) || return 0;
- unlink($from);
+ &link($from,$to) || return 0;
+ &unlink($from)
}
sub chmod {