when environment has variable containing unbalanced brackets
Patch is attached to escape brackets in the value of the environment
variable being used in the test.
my @ENV_values = values %ENV;
my $tainted_value;
do { $tainted_value = shift @ENV_values } while(!$tainted_value || ref $tainted_value);
+$tainted_value =~ s/([\[\]])/~$1/g;
ok(tainted($tainted_value), "\$tainted_value is tainted") or die('huh... %ENV has no entries? I don\'t know how to test taint without it');