15 lines
342 B
Diff
15 lines
342 B
Diff
--- perl-5.8.7/sv.c 2005-05-27 12:38:11.000000000 +0200
|
|
+++ perl-5.8.7/sv.c_secfix 2006-01-17 09:22:10.000000000 +0100
|
|
@@ -8519,7 +8519,10 @@
|
|
if (EXPECT_NUMBER(q, width)) {
|
|
if (*q == '$') {
|
|
++q;
|
|
- efix = width;
|
|
+ if (width > INT_MAX)
|
|
+ efix=INT_MAX;
|
|
+ else
|
|
+ efix = width;
|
|
} else {
|
|
goto gotwidth;
|
|
}
|