mr: Make check() even more pedantic

diff --git a/mr b/mr
index f60ce7b1a1649305d3ff50b338167d525ee4ff2f..300f0887e58b8b0e72fde164bdae4d22c2f2fcc5 100755 (executable)
--- 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{$_});
        }