File perl-tellfix.diff of Package perl

--- ./pp_sys.c.orig	2010-07-28 15:59:35.744534000 +0000
+++ ./pp_sys.c	2010-07-28 16:00:55.882717000 +0000
@@ -2072,6 +2072,12 @@ PP(pp_tell)
 	    RETURN;
 	}
     }
+    else if (!gv) {
+	if (!errno)
+	    SETERRNO(EBADF,RMS_IFI);
+	PUSHi(-1);
+	RETURN;
+    }
 
 #if LSEEKSIZE > IVSIZE
     PUSHn( do_tell(gv) );