diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-14 19:08:22 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-14 19:08:22 +0000 |
| commit | 9228e8cadade046a4baa03d1e0ca1ffb6422ddd1 (patch) | |
| tree | 1d99d63c3818d7a220630d7dc483c0abfc807d12 /regcomp.c | |
| parent | f1c70a3934f00370f9df103d31cfeedd2bb2cb63 (diff) | |
| download | perl-9228e8cadade046a4baa03d1e0ca1ffb6422ddd1.tar.gz | |
avoid dup warning (from Simon Cozens)
p4raw-id: //depot/perl@5734
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1732,7 +1732,9 @@ S_reg(pTHX_ I32 paren, I32 *flagp) *flagp = TRYAGAIN; return NULL; case 'p': - Perl_warner(aTHX_ WARN_REGEXP, "(?p{}) is deprecated - use (??{})"); + if (PL_regcode == &PL_regdummy) + Perl_warner(aTHX_ WARN_REGEXP, + "(?p{}) is deprecated - use (??{})"); /* FALL THROUGH*/ case '?': logical = 1; |