This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2fcfac5
)
tweak to use SIZE_ONLY
author
Gurusamy Sarathy
<gsar@cpan.org>
Tue, 14 Mar 2000 22:20:27 +0000
(22:20 +0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Tue, 14 Mar 2000 22:20:27 +0000
(22:20 +0000)
p4raw-id: //depot/perl@5745
regcomp.c
patch
|
blob
|
blame
|
history
diff --git
a/regcomp.c
b/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*/