fix ops that are not filehandle constructors to not create GV if it

doesn't already exist (avoids leaks); extend semantics of defined()
so that defined(*{$foo}) works (experimental)

p4raw-id: //depot/perl@2879

1 files changed, 7 insertions, 2 deletions

diff --git a/pp_sys.c b/pp_sys.c
index a35a2060b9..e4694bcfb6 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1003,8 +1003,13 @@ PP(pp_select)
     }
 
     if (newdefout) {
-	if (!GvIO(newdefout))
-	    gv_IOadd(newdefout);
+	if (!GvIO(newdefout)) {
+	    if (ckWARN(WARN_UNOPENED))
+		warner(WARN_UNOPENED, "select() on unopened file");
+	    if (SvTYPE(newdefout) != SVt_PVGV)
+		RETURN;
+	    gv_IOadd(newdefout);	/* XXX probably bogus */
+	}
 	setdefout(newdefout);
     }