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