From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 2 Sep 2000 12:26:04 +0000 (+0000)
Subject: Undo part of change 6489 which looks like a bulk edit which
X-Git-Tag: accepted/trunk/20130322.191538~34179
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f7aaccc209ec5f90cb29b7b4871f5abef7db50d5;p=platform%2Fupstream%2Fperl.git

Undo part of change 6489 which looks like a bulk edit which
changed _all_ gv_efullname3() calls to gv_efullname4() calls.
The supressing of main:: on return from select() is undesirable.

p4raw-id: //depot/perl@7003
---

diff --git a/pp_sys.c b/pp_sys.c
index 74011fb..e35cfd4 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1083,7 +1083,7 @@ PP(pp_select)
     else {
 	GV **gvp = (GV**)hv_fetch(hv, GvNAME(egv), GvNAMELEN(egv), FALSE);
 	if (gvp && *gvp == egv) {
-	    gv_efullname4(TARG, PL_defoutgv, Nullch, FALSE);
+	    gv_efullname4(TARG, PL_defoutgv, Nullch, TRUE);
 	    XPUSHTARG;
 	}
 	else {