From f4817f32b1c5f1cefe556cf79f36f874b67cad16 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Thu, 8 Oct 2009 12:13:38 +0200
Subject: [PATCH] Let tell() report warnings on unopened filehandles

(fixes a bug introduced by previous patch)
---
 pp_sys.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pp_sys.c b/pp_sys.c
index 9a1d1b30fe51..3f13dfedb887 100644
--- 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);