diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-03 16:58:18 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-03 12:01:25 +0000 |
| commit | 7bde033ebff0a0b90536713c20543166fab1b660 (patch) | |
| tree | ec01f2bf7066e5e67b1bdf4ac86dfdab4e71917f /ext/List/Util | |
| parent | 8100305834564f2a5793a855edb3f71da87df3d7 (diff) | |
| download | perl-7bde033ebff0a0b90536713c20543166fab1b660.tar.gz | |
Re: randomly untainting?
Message-Id: <20030703145818.5bdd2873.rgarciasuarez@free.fr>
(plus extra debug printing)
p4raw-id: //depot/perl@19957
Diffstat (limited to 'ext/List/Util')
| -rw-r--r-- | ext/List/Util/t/tainted.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/List/Util/t/tainted.t b/ext/List/Util/t/tainted.t index a330b1f3b8..05611a8bc2 100644 --- a/ext/List/Util/t/tainted.t +++ b/ext/List/Util/t/tainted.t @@ -27,12 +27,12 @@ my $var = 2; 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"; |