This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use SvTAIL() instead of BmFLAGS(). The core no longer uses BmFLAGS().
[perl5.git] / ext / Devel-Peek / t / Peek.t
index 16bfba4..715d7f0 100644 (file)
@@ -816,7 +816,6 @@ unless ($Config{useithreads}) {
   MAGIC = $ADDR
     MG_VIRTUAL = &PL_vtbl_bm
     MG_TYPE = PERL_MAGIC_bm\\(B\\)
-  FLAGS = 0
   RARE = \d+
   PREVIOUS = 1
   USEFUL = 100
@@ -834,7 +833,6 @@ unless ($Config{useithreads}) {
   MAGIC = $ADDR
     MG_VIRTUAL = &PL_vtbl_bm
     MG_TYPE = PERL_MAGIC_bm\\(B\\)
-  FLAGS = 0
   RARE = \d+
   PREVIOUS = 1
   USEFUL = 100