Change 19963 by [EMAIL PROTECTED] on 2003/07/03 18:55:37
Revert #19957 as requested by Rafael.
Affected files ...
... //depot/perl/ext/List/Util/t/tainted.t#4 edit
Differences ...
==== //depot/perl/ext/List/Util/t/tainted.t#4 (text) ====
Index: perl/ext/List/Util/t/tainted.t
--- perl/ext/List/Util/t/tainted.t#3~19957~ Thu Jul 3 05:01:25 2003
+++ perl/ext/List/Util/t/tainted.t Thu Jul 3 11:55:37 2003
@@ -27,12 +27,12 @@
print "not " if tainted($var);
print "ok 2\n";
-my $key = (grep $_ ne 'PERL_CORE', keys %ENV)[0];
+my $key = (keys %ENV)[0];
$var = $ENV{$key};
print "not " unless tainted($var);
-print "ok 3 - '$var'\n";
+print "ok 3\n";
print "not " unless tainted($ENV{$key});
-print "ok 4 - key '$key', val '$ENV{$key}'\n";
+print "ok 4\n";
End of Patch.
