File warning-fix.diff of Package SDL_perl

--- ../SDL_perl-1.20.0.orig/OpenGL.xs	2007-03-12 14:49:27.885158497 +0100
+++ src/OpenGL.xs	2007-03-12 14:54:24.991656351 +0100
@@ -734,7 +734,7 @@
 			glMaterialfv(face,name,v);
 		} else if ( items == 5 ) {
 			float v[3];
-			for ( i = 0; i < 4; i++ ) {
+			for ( i = 0; i < 3; i++ ) {
 				v[i] = (SvNOK(ST(i+2))) ? SvNV(ST(i+2)) : 0.0;
 			}
 			glMaterialfv(face,name,v);