testing/perl
SHA256
7
0
Fork 0
forked from pool/perl
Code Pull Requests Activity

Copy from home:coolo:branches:openSUSE:Factory/perl via accept of submit request 19991

Browse Source 
Request was accepted with message:

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=13
This commit is contained in:
Stephan Kulow
2009-09-05 13:50:49 +00:00
committed by Git OBS Bridge
parent ce831079fd
commit b90693b168
17 changed files with 414 additions and 266 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
perl-regexp-refoverflow.diff
View File

@@ -1,6 +1,6 @@
--- ./regcomp.c.orig 2009-07-27 21:37:52.000000000 +0000
+++ ./regcomp.c 2009-09-03 14:36:50.000000000 +0000
@@ -5787,7 +5787,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I
--- regcomp.c
+++ regcomp.c
@@ -5713,7 +5713,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I
ret = reganode(pRExC_state, GOSUB, num);
if (!SIZE_ONLY) {
@@ -9,7 +9,7 @@
RExC_parse++;
vFAIL("Reference to nonexistent group");
}
@@ -7234,7 +7234,7 @@ tryagain:
@@ -7132,7 +7132,7 @@ tryagain:
if (num < 1)
vFAIL("Reference to nonexistent or unclosed group");
}
@@ -18,7 +18,7 @@
goto defchar;
else {
char * const parse_start = RExC_parse - 1; /* MJD */
@@ -7248,7 +7248,7 @@ tryagain:
@@ -7146,7 +7146,7 @@ tryagain:
RExC_parse++;
}
if (!SIZE_ONLY) {
@@ -27,7 +27,7 @@
vFAIL("Reference to nonexistent group");
}
RExC_sawback = 1;
@@ -7425,7 +7425,7 @@ tryagain:
@@ -7323,7 +7323,7 @@ tryagain:
case '0': case '1': case '2': case '3':case '4':
case '5': case '6': case '7': case '8':case '9':
if (*p == '0' ||