diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-03 18:55:37 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-03 18:55:37 +0000 |
| commit | 4b12b7f5aaa10e96c6a01cd84b8e2ba8348ae296 (patch) | |
| tree | 7381d3a189cdfb74515aa02e65faae9b3cfaf337 | |
| parent | e23c8137ee42a11ba756647dd63560bed8512636 (diff) | |
| download | perl-4b12b7f5aaa10e96c6a01cd84b8e2ba8348ae296.tar.gz | |
Revert #19957 as requested by Rafael.
p4raw-id: //depot/perl@19963
| -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 05611a8bc2..a330b1f3b8 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 = (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"; |