SHA256
1
0
forked from pool/perl
perl/perl-regexp-refoverflow.diff
Stephan Kulow 35d79e87c3 Accepting request 313011 from home:hsk17:branches:devel:languages:perl
update to 5.22.0

regarding the .spec file:  i have updated the "(Provides|Obsoletes): perl-*" directives to reflect the module versions provided by perl-5.22.0.  but only for the modules that already were mentioned in the .spec file.  i cannot judge why these are in the .spec file  while many others are not.

OBS-URL: https://build.opensuse.org/request/show/313011
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=130
2015-06-23 19:23:16 +00:00

12 lines
465 B
Diff

--- ./regcomp.c.orig 2014-05-26 13:34:20.000000000 +0000
+++ ./regcomp.c 2014-06-02 14:39:25.188429940 +0000
@@ -10170,7 +10170,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I
ret = reg2Lanode(pRExC_state, GOSUB, num, RExC_recurse_count);
if (!SIZE_ONLY) {
- if (num > (I32)RExC_rx->nparens) {
+ if (num < 0 || num > (I32)RExC_rx->nparens) {
RExC_parse++;
vFAIL("Reference to nonexistent group");
}