From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 10 Jan 2006 04:28:25 +0000 (+0000)
Subject: Make FAKE,READONLY optional on VMS in test 21
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11e2783cff6b99a1463ba0eb8e30a005fc688aaf;p=p5sagit%2Fp5-mst-13.2.git

Make FAKE,READONLY optional on VMS in test 21

p4raw-id: //depot/perl@26759
---

diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t
index 8ea456c..5fcd108 100644
--- 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+