This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Split out study magic from pos magic.
[perl5.git] / pp.c
diff --git a/pp.c b/pp.c
index 24a34a0..c72ce28 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -769,8 +769,7 @@ PP(pp_study)
     }
 
     SvSCREAM_on(sv);
-    /* piggyback on m//g magic */
-    sv_magic(sv, NULL, PERL_MAGIC_regex_global, NULL, 0);
+    sv_magic(sv, NULL, PERL_MAGIC_study, NULL, 0);
     RETPUSHYES;
 }