From 5c35adbb8fc4c988807097c4d379e2485ada5865 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 28 Dec 2007 09:59:06 +0000
Subject: First class regexps.

p4raw-id: //depot/perl@32751
---
 ext/Devel/Peek/t/Peek.t | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

(limited to 'ext/Devel')

diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t
index 65937e75a7..5700a0b758 100644
--- a/ext/Devel/Peek/t/Peek.t
+++ b/ext/Devel/Peek/t/Peek.t
@@ -282,19 +282,12 @@ do_test(15,
   REFCNT = 1
   FLAGS = \\(ROK\\)
   RV = $ADDR
-  SV = ORANGE\\($ADDR\\) at $ADDR
+  SV = REGEXP\\($ADDR\\) at $ADDR
     REFCNT = 1
-    FLAGS = \\(OBJECT,SMG\\)
+    FLAGS = \\(\\)
     IV = 0
     NV = 0
-    PV = 0
-    MAGIC = $ADDR
-      MG_VIRTUAL = $ADDR
-      MG_TYPE = PERL_MAGIC_qr\(r\)
-      MG_OBJ = $ADDR
-        PAT = "\(\?-xism:tic\)"
-        REFCNT = 2
-    STASH = $ADDR\\t"Regexp"');
+    PV = 0');
 } else {
 do_test(15,
         qr(tic),
-- 
cgit v1.2.1