diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-10-12 13:48:34 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-12 13:48:34 +0000 |
| commit | f24fdb76a16c3117b952a67abc0378918ee8512d (patch) | |
| tree | c3e4990e5262d20874ed172e836bb3ccf7bcbe69 /ext/Devel | |
| parent | 4b291ae6c6eed18b8842058ee57489c11dec5862 (diff) | |
| download | perl-f24fdb76a16c3117b952a67abc0378918ee8512d.tar.gz | |
Second attempt to fix Devel::Peek test of $ENV{PATH}, after #17956
and #18001.
p4raw-id: //depot/perl@18003
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/Peek.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t index 870c8fec37..ad34935d54 100644 --- a/ext/Devel/Peek/Peek.t +++ b/ext/Devel/Peek/Peek.t @@ -412,6 +412,10 @@ do_test(20, MG_FLAGS = 0x01 MINMATCH'); +# +# TAINTEDDIR is not set on: OS2, AMIGAOS, WIN32, MSDOS +# environment variables may be invisibly case-forced, hence the (?i:PATH) +# do_test(21, $ENV{PATH}=@ARGV, # scalar(@ARGV) is a handy known tainted value 'SV = PVMG\\($ADDR\\) at $ADDR @@ -428,7 +432,7 @@ do_test(21, (?: MG_FLAGS = 0x01 TAINTEDDIR )? MG_LEN = 4 - MG_PTR = $ADDR "PATH" + MG_PTR = $ADDR "(?i:PATH)" MAGIC = $ADDR MG_VIRTUAL = &PL_vtbl_taint MG_TYPE = PERL_MAGIC_taint\\(t\\)'); |