From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Thu, 8 Oct 2009 10:13:38 +0000 (+0200)
Subject: Let tell() report warnings on unopened filehandles
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f4817f32b1c5f1cefe556cf79f36f874b67cad16;p=p5sagit%2Fp5-mst-13.2.git

Let tell() report warnings on unopened filehandles

(fixes a bug introduced by previous patch)
---

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