Re: Proposed changes and to regular expression interfaces in core

From: "Ævar Arnfjörð Bjarmason" <avarab@gmail.com>
Message-ID: <51dd1af80703291552y1073bcb6r954b043eb68a4459@mail.gmail.com>

p4raw-id: //depot/perl@30849

1 files changed, 6 insertions, 0 deletions

diff --git a/regcomp.c b/regcomp.c
index ae9efbf53a..2cf97ecc21 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4836,6 +4836,12 @@ Perl_reg_numbered_buff_get(pTHX_ const REGEXP * const rx, I32 paren, SV* usesv)
     return sv;
 }
 
+SV*
+Perl_reg_qr_pkg(pTHX_ const REGEXP * const rx)
+{
+	PERL_UNUSED_ARG(rx);
+	return newSVpvs("Regexp");
+}
 
 /* Scans the name of a named buffer from the pattern.
  * If flags is REG_RSN_RETURN_NULL returns null.