diff options
| author | Aaron B. Dossett <aaron@iglou.com> | 2000-10-03 07:03:04 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-03 15:15:42 +0000 |
| commit | 18689f1df2fb576c03af71556727eae71184be94 (patch) | |
| tree | ad3980b3b250284e8aece44dbb65800bb06a6796 /installman | |
| parent | 7ebf56aef9a0edd5d4f5f68bdd8d96e5e1d42b5f (diff) | |
| download | perl-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-x | installman | 6 |
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 { |