Let tell() report warnings on unopened filehandles

(fixes a bug introduced by previous patch)
Perl · Oct 8, 2009 · f4817f3 · f4817f3
1 parent f03173f
commit f4817f3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pp_sys.c b/pp_sys.c
@@ -2090,7 +2090,7 @@ PP(pp_tell)
 	    RETURN;
 	}
     }
-    else {
+    else if (!gv) {
 	if (!errno)
 	    SETERRNO(EBADF,RMS_IFI);
 	PUSHi(-1);