diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-09-02 12:26:04 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-09-02 12:26:04 +0000 |
| commit | f7aaccc209ec5f90cb29b7b4871f5abef7db50d5 (patch) | |
| tree | e6053324299f39d6d74aa978f75af6a085b969e7 /pp_sys.c | |
| parent | c567d284305fc66758205b0fad6c7a2fe19ef7ad (diff) | |
| download | perl-f7aaccc209ec5f90cb29b7b4871f5abef7db50d5.tar.gz | |
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
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 { |