From: Hugo van der Sanden <hv@crypt.org>
Date: Sat, 12 Oct 2002 13:48:34 +0000 (+0000)
Subject: Second attempt to fix Devel::Peek test of $ENV{PATH}, after #17956
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f24fdb76a16c3117b952a67abc0378918ee8512d;p=p5sagit%2Fp5-mst-13.2.git

Second attempt to fix Devel::Peek test of $ENV{PATH}, after #17956
and #18001.

p4raw-id: //depot/perl@18003
---

diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t
index 870c8fe..ad34935 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\\)');