===================================================================
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;
 	    }