allow C<select('foo')> to autovivify *foo (SelectSaver expects that)

p4raw-id: //depot/perl@2914

1 files changed, 2 insertions, 7 deletions

diff --git a/pp_sys.c b/pp_sys.c
index e4694bcfb6..a35a2060b9 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1003,13 +1003,8 @@ PP(pp_select)
     }
 
     if (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 */
-	}
+	if (!GvIO(newdefout))
+	    gv_IOadd(newdefout);
 	setdefout(newdefout);
     }