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

Accepting request 36640 from devel:languages:perl

Browse Source 
checked in (request 36640)

OBS-URL: https://build.opensuse.org/request/show/36640
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=28
This commit is contained in:
OBS User autobuild
2010-04-01 16:16:32 +00:00
committed by Git OBS Bridge
parent 2c58adaba8
commit 9307a41d8d
10 changed files with 362 additions and 284 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 2010-02-28 20:12:22.000000000 +0000
+++ regcomp.c 2010-03-23 15:38:55.000000000 +0000
@@ -5818,7 +5818,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I
--- ./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
ret = reganode(pRExC_state, GOSUB, num);
if (!SIZE_ONLY) {
@@ -9,7 +9,7 @@
RExC_parse++;
vFAIL("Reference to nonexistent group");
}
@@ -7260,7 +7260,7 @@ tryagain:
@@ -7234,7 +7234,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 */
@@ -7274,7 +7274,7 @@ tryagain:
@@ -7248,7 +7248,7 @@ tryagain:
RExC_parse++;
}
if (!SIZE_ONLY) {
@@ -27,7 +27,7 @@
vFAIL("Reference to nonexistent group");
}
RExC_sawback = 1;
@@ -7451,7 +7451,7 @@ tryagain:
@@ -7425,7 +7425,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' ||