This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
tweak to use SIZE_ONLY
[perl5.git] / regcomp.c
index 05e77ba..c0425b7 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -1732,7 +1732,7 @@ S_reg(pTHX_ I32 paren, I32 *flagp)
                *flagp = TRYAGAIN;
                return NULL;
            case 'p':
                *flagp = TRYAGAIN;
                return NULL;
            case 'p':
-               if (PL_regcode == &PL_regdummy)
+               if (SIZE_ONLY)
                    Perl_warner(aTHX_ WARN_REGEXP,
                                "(?p{}) is deprecated - use (??{})");
                /* FALL THROUGH*/
                    Perl_warner(aTHX_ WARN_REGEXP,
                                "(?p{}) is deprecated - use (??{})");
                /* FALL THROUGH*/