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 (executable)
--- 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";
        }
     }