Fix $ENV{PATH} flags in Peek.t.
authorCraig A. Berry <craigberry@mac.com>
Fri, 24 Jan 2014 00:50:58 +0000 (18:50 -0600)
committerCraig A. Berry <craigberry@mac.com>
Fri, 24 Jan 2014 03:11:30 +0000 (21:11 -0600)
Setting $ENV{PATH} explicitly in bea5cecf09ba646ff0ff made us no
longer have the TEMP flag set on VMS, so make it optional.

ext/Devel-Peek/t/Peek.t

index 4a7af42..80a6fb0 100644 (file)
@@ -647,7 +647,7 @@ if (${^TAINT}) {
     MG_PTR = $ADDR (?:"(?i:PATH)"|=> HEf_SVKEY
     SV = PV(?:IV)?\\($ADDR\\) at $ADDR
       REFCNT = \d+
-      FLAGS = \\(TEMP,POK,(?:FAKE,READONLY,)?pPOK\\)
+      FLAGS = \\((?:TEMP,)?POK,(?:FAKE,READONLY,)?pPOK\\)
 (?:      IV = 0
 )?      PV = $ADDR "(?i:PATH)"(?:\\\0)?
       CUR = \d+