mr: Add environment variable to check()

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 69c47c637d5724f4e19c40f94e613ab001325715..f60ce7b1a1649305d3ff50b338167d525ee4ff2f 100755 (executable)
--- a/mr
+++ b/mr
@@ -1879,6 +1879,13 @@ sub getopts {
        }
 }
 
        }
 }
 

+sub check {
+       my @env = qw(GIT_DIR GIT_WORK_TREE VCSH_COMMAND);
+       foreach (@env) {
+               die ("mr: environment variable '$_' is set. You are about to shoot your own foot.\n") if ($ENV{$_});
+       }
+}
+

 sub init {
        $SIG{INT}=sub {
                print STDERR "mr: interrupted\n";
 sub init {
        $SIG{INT}=sub {
                print STDERR "mr: interrupted\n";


@@ -1914,6 +1921,7 @@ sub exitstats {
 
 sub main {
        getopts();
 
 sub main {
        getopts();

+       check();

        init();
        help(@ARGV) if $ARGV[0] eq 'help';
 
        init();
        help(@ARGV) if $ARGV[0] eq 'help';
 


@@ -2069,7 +2077,7 @@ fossil_clean =
        else
                fossil clean --force --dotfiles --emptydirs "$@"
        fi
        else
                fossil clean --force --dotfiles --emptydirs "$@"
        fi

-vcsh_commit = 
+vcsh_clean = 

        if [ "x$1" = x-f ] ; then
                shift
                vcsh run "$MR_REPO" git clean -dx "$@"
        if [ "x$1" = x-f ] ; then
                shift
                vcsh run "$MR_REPO" git clean -dx "$@"