2017-05-17 12:00:29 +02:00
|
|
|
Index: regcomp.c
|
|
|
|
===================================================================
|
|
|
|
--- regcomp.c.orig
|
|
|
|
+++ regcomp.c
|
2017-09-23 14:12:52 +02:00
|
|
|
@@ -10988,7 +10988,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I
|
2008-08-21 18:46:31 +02:00
|
|
|
|
2015-06-23 21:23:16 +02:00
|
|
|
ret = reg2Lanode(pRExC_state, GOSUB, num, RExC_recurse_count);
|
2008-08-21 18:46:31 +02:00
|
|
|
if (!SIZE_ONLY) {
|
|
|
|
- if (num > (I32)RExC_rx->nparens) {
|
|
|
|
+ if (num < 0 || num > (I32)RExC_rx->nparens) {
|
|
|
|
RExC_parse++;
|
|
|
|
vFAIL("Reference to nonexistent group");
|
|
|
|
}
|