Integrate:

[ 26759]
Make FAKE,READONLY optional on VMS in test 21
p4raw-link: @26759 on //depot/perl: 11e2783cff6b99a1463ba0eb8e30a005fc688aaf

p4raw-id: //depot/maint-5.8/perl@26827
p4raw-integrated: from //depot/perl@26825 'merge in'
	ext/Devel/Peek/t/Peek.t (@26404..)

diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t
index 8cf55cc..17a094a 100644 (file)
--- a/ext/Devel/Peek/t/Peek.t
+++ b/ext/Devel/Peek/t/Peek.t
@@ -443,7 +443,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+