diff options
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 |