From: John E. Malmberg Date: Tue, 30 Aug 2005 22:17:42 +0000 (-0400) Subject: [patch@25339] ext/Dev/Peek/t/peek.t fix for VMS X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9baf692ef7bf68c5e130e004b7c236d80e73edd;p=p5sagit%2Fp5-mst-13.2.git [patch@25339] ext/Dev/Peek/t/peek.t fix for VMS From: "John E. Malmberg" Message-ID: <43151346.4010001@qsl.net> p4raw-id: //depot/perl@25340 --- diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index 835166a..0415a1d 100644 --- a/ext/Devel/Peek/t/Peek.t +++ b/ext/Devel/Peek/t/Peek.t @@ -410,6 +410,8 @@ 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)? +# VMS is setting FAKE and READONLY flags. What VMS uses for storing +# ENV hashes is also not always null terminated. # do_test(21, $ENV{PATH}=@ARGV, # scalar(@ARGV) is a handy known tainted value @@ -430,9 +432,9 @@ do_test(21, MG_PTR = $ADDR (?:"(?i:PATH)"|=> HEf_SVKEY SV = PV(?:IV)?\\($ADDR\\) at $ADDR REFCNT = \d+ - FLAGS = \\(TEMP,POK,pPOK\\) + FLAGS = \\(TEMP,POK,(?:FAKE,READONLY,)pPOK\\) (?: IV = 0 -)? PV = $ADDR "(?i:PATH)"\\\0 +)? PV = $ADDR "(?i:PATH)"(?:\\\0)? CUR = \d+ LEN = \d+) MAGIC = $ADDR