diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-23 12:07:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-23 12:07:53 +0000 |
| commit | 5e836f438feb614a0470dee68b7765d2c6f79353 (patch) | |
| tree | 186957961810ce564cced2d4f294e316785f0b6f /ext | |
| parent | c9ada85fa9dc6257bae067a90718f01476f8c35f (diff) | |
| download | perl-5e836f438feb614a0470dee68b7765d2c6f79353.tar.gz | |
Chip noticed that the intended optionality of the 'IV' was
forgotten in the change #18758.
p4raw-link: @18758 on //depot/perl: f0fabfd7a60ca1c99e9f3f4c4b66d46eab58e4d5
p4raw-id: //depot/perl@18761
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Devel/Peek/Peek.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t index 935f08ca55..a6b001c9cf 100644 --- a/ext/Devel/Peek/Peek.t +++ b/ext/Devel/Peek/Peek.t @@ -417,7 +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) +# 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 @@ -436,7 +436,7 @@ do_test(21, TAINTEDDIR )? MG_LEN = -?\d+ MG_PTR = $ADDR (?:"(?i:PATH)"|=> HEf_SVKEY - SV = PV(?:IV)\\($ADDR\\) at $ADDR + SV = PV(?:IV)?\\($ADDR\\) at $ADDR REFCNT = \d+ FLAGS = \\(TEMP,POK,pPOK\\) (?: IV = 0 |