From: Richard Hartmann <richih@debian.org>
Date: Fri, 21 Nov 2014 23:34:22 +0000 (+0100)
Subject: mr: Check if unsafe ENV variables are set
X-Git-Url: https://git.madduck.net/code/myrepos.git/commitdiff_plain/9cd8963574cb722f2997c1f311fb941fcb230db2?hp=81499d6804d9bc388c93312d3700d086f1353ec5

mr: Check if unsafe ENV variables are set

If e.g. $GIT_DIR is set, it's near certain that the user is about to
shoot their own foot so we abort.
---

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';