17 lines
504 B
Diff
17 lines
504 B
Diff
===================================================================
|
|
RCS file: /usr/OpenBSD/cvs/src/gnu/usr.bin/perl/sv.c,v
|
|
retrieving revision 1.10
|
|
retrieving revision 1.12
|
|
diff -u -r1.10 -r1.12
|
|
--- src/gnu/usr.bin/perl/sv.c 2005/01/15 21:30:22 1.10
|
|
+++ src/gnu/usr.bin/perl/sv.c 2005/12/03 15:58:16 1.12
|
|
@@ -8541,7 +8541,7 @@
|
|
if (EXPECT_NUMBER(q, width)) {
|
|
if (*q == '$') {
|
|
++q;
|
|
- efix = width;
|
|
+ efix = width > PERL_INT_MAX ? PERL_INT_MAX : width;
|
|
} else {
|
|
goto gotwidth;
|
|
}
|