diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2003-02-20 08:28:09 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-20 17:28:44 +0000 |
| commit | f0fabfd7a60ca1c99e9f3f4c4b66d46eab58e4d5 (patch) | |
| tree | f438c144561136e92c0e947a3dc8cd2cb35279a0 /ext/Devel | |
| parent | b3b333bff9eb56ac9727a5c2f1c71ef38046a60e (diff) | |
| download | perl-f0fabfd7a60ca1c99e9f3f4c4b66d46eab58e4d5.tar.gz | |
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
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/Peek.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t index 687dff042a..935f08ca55 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 |