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_hot.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_hot.c')
| -rw-r--r-- | pp_hot.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -400,7 +400,7 @@ PP(pp_print) if (!(io = GvIO(gv))) { if (ckWARN(WARN_UNOPENED)) { SV* sv = sv_newmortal(); - gv_efullname3(sv, gv, Nullch); + gv_efullname4(sv, gv, Nullch, FALSE); Perl_warner(aTHX_ WARN_UNOPENED, "Filehandle %s never opened", SvPV(sv,n_a)); } @@ -411,7 +411,7 @@ PP(pp_print) 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(sv,n_a)); @@ -1382,7 +1382,7 @@ Perl_do_readline(pTHX) || fp == PerlIO_stderr())) { SV* sv = sv_newmortal(); - gv_efullname3(sv, PL_last_in_gv, Nullch); + gv_efullname4(sv, PL_last_in_gv, Nullch, FALSE); Perl_warner(aTHX_ WARN_IO, "Filehandle %s opened only for output", SvPV_nolen(sv)); } |