projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
465d77f
)
Fix $ENV{PATH} flags in Peek.t.
author
Craig A. Berry
<craigberry@mac.com>
Fri, 24 Jan 2014 00:50:58 +0000
(18:50 -0600)
committer
Craig 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
patch
|
blob
|
history
diff --git
a/ext/Devel-Peek/t/Peek.t
b/ext/Devel-Peek/t/Peek.t
index
4a7af42
..
80a6fb0
100644
(file)
--- 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+