Let tell() report warnings on unopened filehandles
authorRafael Garcia-Suarez <rgs@consttype.org>
Thu, 8 Oct 2009 10:13:38 +0000 (12:13 +0200)
committerRafael Garcia-Suarez <rgs@consttype.org>
Thu, 8 Oct 2009 10:13:38 +0000 (12:13 +0200)
(fixes a bug introduced by previous patch)

pp_sys.c

index 9a1d1b3..3f13dfe 100644 (file)
--- 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);