In PL_regexp_padav, store regexps via real references, rather than

hiding them within IVs. We can do this now that they are real SV
pointers.

p4raw-id: //depot/perl@32900

1 files changed, 10 insertions, 1 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 7a71b6f79e..d391272f64 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1197,9 +1197,18 @@ PP(pp_qr)
     dVAR; dSP;
     register PMOP * const pm = cPMOP;
     REGEXP * rx = PM_GETRE(pm);
-    SV * const pkg = CALLREG_PACKAGE(rx);
+    SV * const pkg = rx ? CALLREG_PACKAGE(rx) : NULL;
     SV * const rv = sv_newmortal();
 
+    if (!rx) {
+	/* FIXME ORANGE.
+	   This can go if/when regexps are stored directly in PL_regex_pad
+	   rather than via references. do_clean_objs finds and frees them
+	   when they are stored as references.  */
+	XPUSHs(rv);
+	RETURN;
+    }
+
     SvUPGRADE(rv, SVt_IV);
     /* This RV is about to own a reference to the regexp. (In addition to the
        reference already owned by the PMOP.  */