Change 34465 by [EMAIL PROTECTED] on 2008/10/06 12:46:54
Integrate:
[ 34464]
Avoid allocating 1 extra regnode when duplicating a regexp.
See
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2008-09/msg00590.html
and
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2008-10/msg00163.html
Affected files ...
... //depot/maint-5.10/perl/regcomp.c#16 integrate
Differences ...
==== //depot/maint-5.10/perl/regcomp.c#16 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c#15~33972~ 2008-05-31 16:40:24.000000000 -0700
+++ perl/regcomp.c 2008-10-06 05:46:54.000000000 -0700
@@ -9489,7 +9489,7 @@
npar = r->nparens+1;
len = ProgLen(ri);
- Newxc(reti, sizeof(regexp_internal) + (len+1)*sizeof(regnode), char,
regexp_internal);
+ Newxc(reti, sizeof(regexp_internal) + len*sizeof(regnode), char,
regexp_internal);
Copy(ri->program, reti->program, len+1, regnode);
End of Patch.
