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

Accepting request 19865 from devel:languages:perl

Browse Source 
Copy from devel:languages:perl/perl based on submit request 19865 from user mlschroe

OBS-URL: https://build.opensuse.org/request/show/19865
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=30
This commit is contained in:
OBS User autobuild
2009-09-04 22:22:09 +00:00
committed by Git OBS Bridge
parent 82acf4f7a8
commit db157ca0ff
15 changed files with 243 additions and 386 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
+++ regcomp.c
@@ -5713,7 +5713,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");
}
@@ -7132,7 +7132,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 */
@@ -7146,7 +7146,7 @@ tryagain:
@@ -7248,7 +7248,7 @@ tryagain:
RExC_parse++;
}
if (!SIZE_ONLY) {
@@ -27,7 +27,7 @@
vFAIL("Reference to nonexistent group");
}
RExC_sawback = 1;
@@ -7323,7 +7323,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' ||