Change 26759: Make FAKE,READONLY optional on VMS in test 21

[Craig A. Berry]

Change 26759 by [EMAIL PROTECTED] on 2006/01/10 04:28:25

        Make FAKE,READONLY optional on VMS in test 21

Affected files ...

... //depot/perl/ext/Devel/Peek/t/Peek.t#10 edit

Differences ...

==== //depot/perl/ext/Devel/Peek/t/Peek.t#10 (text) ====
Index: perl/ext/Devel/Peek/t/Peek.t
--- perl/ext/Devel/Peek/t/Peek.t#9~26404~       2005-12-19 10:28:03.000000000 
-0800
+++ perl/ext/Devel/Peek/t/Peek.t        2006-01-09 20:28:25.000000000 -0800
@@ -432,7 +432,7 @@
     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+
End of Patch.