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

update to 5.14.0

Browse Source 
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=61
This commit is contained in:
Michael Schröder
2011-05-16 14:18:55 +00:00
committed by Git OBS Bridge
parent a8090796e0
commit f69a12c2bc
11 changed files with 156 additions and 276 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
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 2011-05-08 03:10:08.000000000 +0000
+++ ./regcomp.c 2011-05-16 11:49:16.000000000 +0000
@@ -6832,7 +6832,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:
@@ -8428,7 +8428,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:
@@ -8442,7 +8442,7 @@ tryagain:
RExC_parse++;
}
if (!SIZE_ONLY) {
@@ -27,12 +27,12 @@
vFAIL("Reference to nonexistent group");
}
RExC_sawback = 1;
@@ -7451,7 +7451,7 @@ tryagain:
@@ -8666,7 +8666,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' ||
- (isDIGIT(p[1]) && atoi(p) >= RExC_npar) ) {
+ (isDIGIT(p[1]) && (U32)atoi(p) >= (U32)RExC_npar) ) {
I32 flags = 0;
- (isDIGIT(p[1]) && atoi(p) >= RExC_npar))
+ (isDIGIT(p[1]) && (U32)atoi(p) >= (U32)RExC_npar))
{
I32 flags = PERL_SCAN_SILENT_ILLDIGIT;
STRLEN numlen = 3;
ender = grok_oct(p, &numlen, &flags, NULL);