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 | dbd0605b845e5e65a129637f6f3ce9fe4a72cacb (patch) | |
| tree | c3e4990e5262d20874ed172e836bb3ccf7bcbe69 /ext | |
| parent | b9a249a7227f32b297d5e4e6293e56379b60f997 (diff) | |
| download | perl-dbd0605b845e5e65a129637f6f3ce9fe4a72cacb.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')
| -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\\)'); |