From: Richard Hartmann 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?ds=sidebyside 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';