diff options
| author | nick@babyhippo.com <nick@babyhippo.com> | 2000-10-04 13:06:45 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-04 11:53:44 +0000 |
| commit | 55a105fde08b8ff7e431e93257b2fe180eb0327d (patch) | |
| tree | 262b6e7e09f1dddbe86d688320cee5e51562fb2c /installman | |
| parent | f08cbdd1c4c30753f0b3b06d9c4ae199518e065a (diff) | |
| download | perl-55a105fde08b8ff7e431e93257b2fe180eb0327d.tar.gz | |
[ID 20001004.003] installman "Ambiguous call resolved as CORE::"
Message-Id: <20001004120645.A7356@babyhippo.com>
Retract 7118 and 7135.
p4raw-id: //depot/perl@7140
Diffstat (limited to 'installman')
| -rwxr-xr-x | installman | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/installman b/installman index 1fd964d114..72c76fd8a2 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 { |