First class regexps.

[perl5.git] / regcomp.c

diff --git a/regcomp.c b/regcomp.c
index 5a175ba..90b94a3 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -5209,7 +5209,7 @@ SV*
 Perl_reg_qr_package(pTHX_ REGEXP * const rx)
 {
        PERL_UNUSED_ARG(rx);
-       return newSVpvs("Regexp");
+       return NULL;
 }
 
 /* Scans the name of a named buffer from the pattern.