From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 24 Jan 2014 00:50:58 +0000 (-0600)
Subject: Fix $ENV{PATH} flags in Peek.t.
X-Git-Tag: upstream/5.20.0~628
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=02091bd7ebe469aca7283c42a3c537b2c15079db;p=platform%2Fupstream%2Fperl.git

Fix $ENV{PATH} flags in Peek.t.

Setting $ENV{PATH} explicitly in bea5cecf09ba646ff0ff made us no
longer have the TEMP flag set on VMS, so make it optional.
---

diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t
index 4a7af42..80a6fb0 100644
--- a/ext/Devel-Peek/t/Peek.t
+++ b/ext/Devel-Peek/t/Peek.t
@@ -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+