From: Hugo van der Sanden <hv@crypt.org>
Date: Sun, 8 Sep 2002 14:11:54 +0000 (+0000)
Subject: setting PERL_CORE as in #17861 violates assumptions made by taint tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eb25aaf601be63900e7fddecbca6277c850b9e70;p=p5sagit%2Fp5-mst-13.2.git

setting PERL_CORE as in #17861 violates assumptions made by taint tests

p4raw-id: //depot/perl@17863
---

diff --git a/t/op/taint.t b/t/op/taint.t
index 7e8d4c4..4b8039c 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -894,8 +894,8 @@ else {
     my @untainted;
     while (my ($k, $v) = each %ENV) {
 	if (!tainted($v) &&
-	    # These we have untainted explicitly earlier.
-	    $k !~ /^(BASH_ENV|CDPATH|ENV|IFS|PATH|TEMP|TERM|TMP)$/) {
+	    # These we have explicitly untainted or set earlier.
+	    $k !~ /^(BASH_ENV|CDPATH|ENV|IFS|PATH|PERL_CORE|TEMP|TERM|TMP)$/) {
 	    push @untainted, "# '$k' = '$v'\n";
 	}
     }