[LARGE!] symbolic magic

[p5sagit/p5-mst-13.2.git] / t / lib / peek.t

diff --git a/t/lib/peek.t b/t/lib/peek.t
index 96e24a2..c14dc9b 100644 (file)
--- a/t/lib/peek.t
+++ b/t/lib/peek.t
@@ -251,7 +251,7 @@ do_test(15,
     PV = 0
     MAGIC = $ADDR
       MG_VIRTUAL = $ADDR
-      MG_TYPE = \'r\'
+      MG_TYPE = PERL_MAGIC_qr\(r\)
       MG_OBJ = $ADDR
     STASH = $ADDR\\t"Regexp"');
 
@@ -283,7 +283,7 @@ do_test(17,
   NV = 0
   MAGIC = $ADDR
     MG_VIRTUAL = &PL_vtbl_glob
-    MG_TYPE = \'\\*\'
+    MG_TYPE = PERL_MAGIC_glob\(\*\)
     MG_OBJ = $ADDR
   NAME = "a"
   NAMELEN = 1