From: Richard Hartmann <richih@debian.org>
Date: Sat, 22 Nov 2014 08:25:36 +0000 (+0100)
Subject: mr: Make check() even more pedantic
X-Git-Url: https://git.madduck.net/code/myrepos.git/commitdiff_plain/refs/heads/master?ds=inline;hp=6381ce658f88b2e2e8fdc4a019cebcabf1d6eb28

mr: Make check() even more pedantic
---

diff --git a/mr b/mr
index f60ce7b..300f088 100755
--- a/mr
+++ b/mr
@@ -1880,7 +1880,7 @@ sub getopts {
 }
 
 sub check {
-	my @env = qw(GIT_DIR GIT_WORK_TREE VCSH_COMMAND);
+	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{$_});
 	}