diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-20 03:28:02 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-02 04:26:46 +0000 |
| commit | 436933950535d3942db23a87c1a6344f566a9af4 (patch) | |
| tree | 53a51ada91219346920fcaa7071e8b0f32861fea /pp_sys.c | |
| parent | ef7adf26b48d8441a94b9133216b2ca93f1f3137 (diff) | |
| download | perl-436933950535d3942db23a87c1a6344f566a9af4.tar.gz | |
Remove the extraneous "main::" prefix from all the
"opened only for", "on closed", and "never opened" warnings.
Subject: Re: inappropriate warning
Message-Id: <200003201928.LAA32224@maul.ActiveState.com>
p4raw-id: //depot/perl@6489
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -1070,7 +1070,7 @@ PP(pp_select) else { GV **gvp = (GV**)hv_fetch(hv, GvNAME(egv), GvNAMELEN(egv), FALSE); if (gvp && *gvp == egv) { - gv_efullname3(TARG, PL_defoutgv, Nullch); + gv_efullname4(TARG, PL_defoutgv, Nullch, FALSE); XPUSHTARG; } else { @@ -1176,7 +1176,7 @@ PP(pp_enterwrite) if (!cv) { if (fgv) { SV *tmpsv = sv_newmortal(); - gv_efullname3(tmpsv, fgv, Nullch); + gv_efullname4(tmpsv, fgv, Nullch, FALSE); DIE(aTHX_ "Undefined format \"%s\" called",SvPVX(tmpsv)); } DIE(aTHX_ "Not a format reference"); @@ -1257,7 +1257,7 @@ PP(pp_leavewrite) cv = GvFORM(fgv); if (!cv) { SV *tmpsv = sv_newmortal(); - gv_efullname3(tmpsv, fgv, Nullch); + gv_efullname4(tmpsv, fgv, Nullch, FALSE); DIE(aTHX_ "Undefined top format \"%s\" called",SvPVX(tmpsv)); } if (CvCLONE(cv)) @@ -1275,7 +1275,7 @@ PP(pp_leavewrite) if (ckWARN2(WARN_CLOSED,WARN_IO)) { if (IoIFP(io)) { SV* sv = sv_newmortal(); - gv_efullname3(sv, gv, Nullch); + gv_efullname4(sv, gv, Nullch, FALSE); Perl_warner(aTHX_ WARN_IO, "Filehandle %s opened only for input", SvPV_nolen(sv)); @@ -1345,7 +1345,7 @@ PP(pp_prtf) sv = NEWSV(0,0); if (!(io = GvIO(gv))) { if (ckWARN(WARN_UNOPENED)) { - gv_efullname3(sv, gv, Nullch); + gv_efullname4(sv, gv, Nullch, FALSE); Perl_warner(aTHX_ WARN_UNOPENED, "Filehandle %s never opened", SvPV(sv,n_a)); } @@ -1355,7 +1355,7 @@ PP(pp_prtf) else if (!(fp = IoOFP(io))) { if (ckWARN2(WARN_CLOSED,WARN_IO)) { if (IoIFP(io)) { - gv_efullname3(sv, gv, Nullch); + gv_efullname4(sv, gv, Nullch, FALSE); Perl_warner(aTHX_ WARN_IO, "Filehandle %s opened only for input", SvPV(sv,n_a)); @@ -1551,7 +1551,7 @@ PP(pp_sysread) || IoIFP(io) == PerlIO_stderr()) && ckWARN(WARN_IO)) { SV* sv = sv_newmortal(); - gv_efullname3(sv, gv, Nullch); + gv_efullname4(sv, gv, Nullch, FALSE); Perl_warner(aTHX_ WARN_IO, "Filehandle %s opened only for output", SvPV_nolen(sv)); } |