diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-09-01 22:00:43 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-09-01 22:00:43 +0000 |
| commit | f967eb5f7ea656df97e47541e42689728310e560 (patch) | |
| tree | ecc5c7bba743513bb24a37d307e0e84e8839d16e /pp_sys.c | |
| parent | a26b07455ad7b4e24ed0c8c0c352c4cfa06b15ec (diff) | |
| download | perl-f967eb5f7ea656df97e47541e42689728310e560.tar.gz | |
perl 5.003_04: dump.c gv.c op.c pp_ctl.c pp_sys.c proto.h run.c
This patch changes neither behavior nor performance. However, it does
reduce code size and improve maintainability by combining some common
code in gv_fullname() and gv_efullname().
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -748,7 +748,7 @@ PP(pp_select) else { GV **gvp = (GV**)hv_fetch(hv, GvNAME(egv), GvNAMELEN(egv), FALSE); if (gvp && *gvp == egv) - gv_efullname(TARG, defoutgv); + gv_efullname(TARG, defoutgv, Nullch); else sv_setsv(TARG, sv_2mortal(newRV((SV*)egv))); XPUSHTARG; @@ -842,7 +842,7 @@ PP(pp_enterwrite) if (!cv) { if (fgv) { SV *tmpsv = sv_newmortal(); - gv_efullname(tmpsv, gv); + gv_efullname(tmpsv, fgv, Nullch); DIE("Undefined format \"%s\" called",SvPVX(tmpsv)); } DIE("Not a format reference"); @@ -921,7 +921,7 @@ PP(pp_leavewrite) cv = GvFORM(fgv); if (!cv) { SV *tmpsv = sv_newmortal(); - gv_efullname(tmpsv, fgv); + gv_efullname(tmpsv, fgv, Nullch); DIE("Undefined top format \"%s\" called",SvPVX(tmpsv)); } return doform(cv,gv,op); @@ -978,7 +978,7 @@ PP(pp_prtf) gv = defoutgv; if (!(io = GvIO(gv))) { if (dowarn) { - gv_fullname(sv,gv); + gv_fullname(sv, gv, Nullch); warn("Filehandle %s never opened", SvPV(sv,na)); } SETERRNO(EBADF,RMS$_IFI); @@ -986,7 +986,7 @@ PP(pp_prtf) } else if (!(fp = IoOFP(io))) { if (dowarn) { - gv_fullname(sv,gv); + gv_fullname(sv, gv, Nullch); if (IoIFP(io)) warn("Filehandle %s opened only for input", SvPV(sv,na)); else |