This fixes test 21 on blead-perl to "pass" on VMS. The hash set by VMS now has the READONLY and FAKE attributes, and two of the three VMS resources that are represented by ENV hashes are not null terminated and can contain binary values.

-John
[EMAIL PROTECTED]
Personal Opinion Only
--- ext/Devel/Peek/t/Peek.t_25339       Tue Aug 30 21:49:49 2005
+++ ext/Devel/Peek/t/Peek.t     Tue Aug 30 21:40:43 2005
@@ -410,6 +410,8 @@
 # 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)?
+# VMS is setting FAKE and READONLY flags.  What VMS uses for storing
+# ENV hashes is also not always null terminated.
 #
 do_test(21,
         [EMAIL PROTECTED],  # scalar(@ARGV) is a handy known tainted value
@@ -430,9 +432,9 @@
     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

Reply via email to