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