From: Jarkko Hietaniemi Date: Sun, 23 Feb 2003 12:07:53 +0000 (+0000) Subject: Chip noticed that the intended optionality of the 'IV' was X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5e836f438feb614a0470dee68b7765d2c6f79353;p=p5sagit%2Fp5-mst-13.2.git 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 --- diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t index 935f08c..a6b001c 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 is turned into an IV on VMS hence the (?:IV) +# C 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