mr bootstrap: Fix cross-device rename failure. Closes: #557962

[code/myrepos.git] / mr

diff --git a/mr b/mr
index ff4adced7c1b4de15da19a225493d914372769f6..98c96feb707865eed0aa56185b214f7f94a7738b 100755 (executable)
--- a/mr
+++ b/mr
@@ -1357,7 +1357,8 @@ sub bootstrap {
                print STDERR "mr: .mrconfig file already exists, not overwriting with $url\n";
        }
        else {
                print STDERR "mr: .mrconfig file already exists, not overwriting with $url\n";
        }
        else {

-               rename($tmpconfig, ".mrconfig") || die "rename: $!";
+               eval q{use File::Copy};
+               move($tmpconfig, ".mrconfig") || die "rename: $!";

        }
 
        exec("mr $ENV{MR_SWITCHES} -c .mrconfig checkout");
        }
 
        exec("mr $ENV{MR_SWITCHES} -c .mrconfig checkout");