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

1 files changed, 1 insertions, 1 deletions

diff --git a/doio.c b/doio.c
index 19f7861e2e..db570d1760 100644
--- a/doio.c
+++ b/doio.c
@@ -879,7 +879,7 @@ Perl_do_eof(pTHX_ GV *gv)
 		 || IoIFP(io) == PerlIO_stderr()))
     {
 	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));
     }