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 (file)
--- 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 {