From: Peter Prymmer <PPrymmer@factset.com>
Date: Thu, 20 Feb 2003 13:28:09 +0000 (-0500)
Subject: add some IV stuff to ext/Devel/Peek/Peek.t test 21
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f0fabfd7a60ca1c99e9f3f4c4b66d46eab58e4d5;p=p5sagit%2Fp5-mst-13.2.git

add some IV stuff to ext/Devel/Peek/Peek.t test 21
Message-ID: <OF2DC297F4.A63F24F9-ON85256CD3.006513E4@factset.com>

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

diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t
index 687dff0..935f08c 100644
--- a/ext/Devel/Peek/Peek.t
+++ b/ext/Devel/Peek/Peek.t
@@ -417,6 +417,7 @@ do_test(20,
 #
 # TAINTEDDIR is not set on: OS2, AMIGAOS, WIN32, MSDOS
 # environment variables may be invisibly case-forced, hence the (?i:PATH)
+# C<scalar(@ARGV)> is turned into an IV on VMS hence the (?:IV)
 #
 do_test(21,
         $ENV{PATH}=@ARGV,  # scalar(@ARGV) is a handy known tainted value
@@ -435,10 +436,11 @@ do_test(21,
       TAINTEDDIR
 )?    MG_LEN = -?\d+
     MG_PTR = $ADDR (?:"(?i:PATH)"|=> HEf_SVKEY
-    SV = PV\\($ADDR\\) at $ADDR
+    SV = PV(?:IV)\\($ADDR\\) at $ADDR
       REFCNT = \d+
       FLAGS = \\(TEMP,POK,pPOK\\)
-      PV = $ADDR "(?i:PATH)"\\\0
+(?:      IV = 0
+)?      PV = $ADDR "(?i:PATH)"\\\0
       CUR = \d+
       LEN = \d+)
   MAGIC = $ADDR