X-Git-Url: https://git.madduck.net/code/myrepos.git/blobdiff_plain/81499d6804d9bc388c93312d3700d086f1353ec5..9cd8963574cb722f2997c1f311fb941fcb230db2:/mr

diff --git a/mr b/mr
index 7fa3180..e0d27a1 100755
--- a/mr
+++ b/mr
@@ -1879,6 +1879,13 @@ sub getopts {
 	}
 }
 
+sub check {
+	my @env = qw(GIT_DIR 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";
@@ -1914,6 +1921,7 @@ sub exitstats {
 
 sub main {
 	getopts();
+	check();
 	init();
 	help(@ARGV) if $ARGV[0] eq 'help';