This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
5971768
)
Make FAKE,READONLY optional on VMS in test 21
author
Craig A. Berry
<craigberry@mac.com>
Tue, 10 Jan 2006 04:28:25 +0000
(
04:28
+0000)
committer
Craig A. Berry
<craigberry@mac.com>
Tue, 10 Jan 2006 04:28:25 +0000
(
04:28
+0000)
p4raw-id: //depot/perl@26759
ext/Devel/Peek/t/Peek.t
patch
|
blob
|
blame
|
history
diff --git
a/ext/Devel/Peek/t/Peek.t
b/ext/Devel/Peek/t/Peek.t
index
8ea456c
..
5fcd108
100644
(file)
--- a/
ext/Devel/Peek/t/Peek.t
+++ b/
ext/Devel/Peek/t/Peek.t
@@
-432,7
+432,7
@@
do_test(21,
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+