From 898eb5009df4ab2e6ff4bd43f582cd832a2aca6c Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 27 Sep 2001 22:23:24 +0000
Subject: [PATCH] Not everyone is using ithreads...

p4raw-id: //depot/perl@12248
---
 ext/Devel/Peek/Peek.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t
index 9e60bef14e..dde4cd14ba 100644
--- a/ext/Devel/Peek/Peek.t
+++ b/ext/Devel/Peek/Peek.t
@@ -321,7 +321,7 @@ do_test(18,
 	chr(256).chr(0).chr(512),
 'SV = PV\\($ADDR\\) at $ADDR
   REFCNT = 1
-  FLAGS = \\(PADBUSY,PADTMP,POK,READONLY,pPOK,UTF8\\)
+  FLAGS = \\((?:PADBUSY,PADTMP,)?POK,READONLY,pPOK,UTF8\\)
   PV = $ADDR "\\\304\\\200\\\0\\\310\\\200"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\]
   CUR = 5
   LEN = 6');
-- 
2.34.1