mr: Make check() even more pedantic

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 69c47c637d5724f4e19c40f94e613ab001325715..300f0887e58b8b0e72fde164bdae4d22c2f2fcc5 100755 (executable)
--- a/mr
+++ b/mr
@@ -1879,6 +1879,13 @@ sub getopts {
        }
 }
 
+sub check {
+       my @env = qw(GIT_DIR GIT_INDEX_FILE GIT_OBJECT_DIRECTORY GIT_WORK_TREE VCSH_COMMAND VCSH_DIRECTORY VCSH_REPO_NAME);
+       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";
@@ -1914,6 +1921,7 @@ sub exitstats {
 
 sub main {
        getopts();
+       check();
        init();
        help(@ARGV) if $ARGV[0] eq 'help';
 
@@ -2069,7 +2077,7 @@ fossil_clean =
        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 "$@"