Greetings,
The enclosed patch to [EMAIL PROTECTED] has the Peek.t
test running well on both OpenVMS 7.3-1 as well as
not hurting it on SunOS 2.8 (aka Solaris 8).
--- ext/Devel/Peek/Peek.t.orig Thu Jan 23 09:20:50 2003
+++ ext/Devel/Peek/Peek.t Thu Feb 20 08:00:30 2003
@@ -413,6 +413,7 @@
#
# 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)
#
do_test(21,
[EMAIL PROTECTED], # scalar(@ARGV) is a handy known tainted value
@@ -431,10 +432,11 @@
TAINTEDDIR
)? MG_LEN = -?\d+
MG_PTR = $ADDR (?:"(?i:PATH)"|=> HEf_SVKEY
- SV = PV\\($ADDR\\) at $ADDR
+ SV = PV(?:IV)\\($ADDR\\) at $ADDR
REFCNT = \d+
FLAGS = \\(TEMP,POK,pPOK\\)
- PV = $ADDR "(?i:PATH)"\\\0
+(?: IV = 0
+)? PV = $ADDR "(?i:PATH)"\\\0
CUR = \d+
LEN = \d+)
MAGIC = $ADDR
End of Patch.
Peter Prymmer
