tweak for change#7173

[p5sagit/p5-mst-13.2.git] / installman

diff --git a/installman b/installman
index 1fd964d..72c76fd 100755 (executable)
--- 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 {