Change 19957 by [EMAIL PROTECTED] on 2003/07/03 12:01:25
Subject: Re: randomly untainting?
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Thu, 3 Jul 2003 14:58:18 +0200
Message-Id: <[EMAIL PROTECTED]>
(plus extra debug printing)
Affected files ...
... //depot/perl/ext/List/Util/t/tainted.t#3 edit
Differences ...
==== //depot/perl/ext/List/Util/t/tainted.t#3 (text) ====
Index: perl/ext/List/Util/t/tainted.t
--- perl/ext/List/Util/t/tainted.t#2~11853~ Mon Sep 3 13:00:00 2001
+++ perl/ext/List/Util/t/tainted.t Thu Jul 3 05:01:25 2003
@@ -27,12 +27,12 @@
print "not " if tainted($var);
print "ok 2\n";
-my $key = (keys %ENV)[0];
+my $key = (grep $_ ne 'PERL_CORE', keys %ENV)[0];
$var = $ENV{$key};
print "not " unless tainted($var);
-print "ok 3\n";
+print "ok 3 - '$var'\n";
print "not " unless tainted($ENV{$key});
-print "ok 4\n";
+print "ok 4 - key '$key', val '$ENV{$key}'\n";
End of Patch.
