diff options
Diffstat (limited to 'installperl')
-rwxr-xr-x | installperl | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/installperl b/installperl index 9cf7d7b663..f71243f05f 100755 --- a/installperl +++ b/installperl @@ -625,20 +625,6 @@ sub safe_unlink { } } -sub safe_rename { - my($from,$to) = @_; - if (-f $to and not unlink($to)) { - my($i); - for ($i = 1; $i < 50; $i++) { - last if rename($to, "$to.$i"); - } - warn("Cannot rename to '$to.$i': $!"), return 0 - if $i >= 50; # Give up! - } - link($from,$to) || return 0; - unlink($from); -} - sub copy { my($from,$to) = @_; |