X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FDevel%2FPeek%2FPeek.t;h=ad34935d54bc4f9139022b53b1db3e68953ea06f;hb=f24fdb76a16c3117b952a67abc0378918ee8512d;hp=870c8fec375669a405dd5be8357d1e8d3f4edb0e;hpb=4b291ae6c6eed18b8842058ee57489c11dec5862;p=p5sagit%2Fp5-mst-13.2.git

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\\)');