X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/1244b64003dd8dbc75cb8ee237b478b3077523f0..5629c67553f30a19f4842982925a3d994d46684c:/ext/B/B.xs

diff --git a/ext/B/B.xs b/ext/B/B.xs
index ea4f620..df53d9a 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -667,7 +667,7 @@ LISTOP_children(o)
 #define PMOP_pmreplroot(o)	o->op_pmreplroot
 #define PMOP_pmreplstart(o)	o->op_pmreplstart
 #define PMOP_pmnext(o)		o->op_pmnext
-#define PMOP_pmregexp(o)	o->op_pmregexp
+#define PMOP_pmregexp(o)	PM_GETRE(o)
 #define PMOP_pmflags(o)		o->op_pmflags
 #define PMOP_pmpermflags(o)	o->op_pmpermflags
 
@@ -712,7 +712,7 @@ PMOP_precomp(o)
 	REGEXP *	rx = NO_INIT
     CODE:
 	ST(0) = sv_newmortal();
-	rx = o->op_pmregexp;
+	rx = PM_GETRE(o);
 	if (rx)
 	    sv_setpvn(ST(0), rx->precomp, rx->prelen);