Yet more instances of gv_fetchpv... that should be GV_ADD rather than

TRUE.
Convert two gv_fetchpvn_flags to gv_fetchpvs.

p4raw-id: //depot/perl@27050

1 files changed, 2 insertions, 2 deletions

diff --git a/gv.c b/gv.c
index c47c75f7f7..0cf779f0b1 100644
--- a/gv.c
+++ b/gv.c
@@ -1267,10 +1267,10 @@ Perl_newIO(pTHX)
     SvOBJECT_on(io);
     /* Clear the stashcache because a new IO could overrule a package name */
     hv_clear(PL_stashcache);
-    iogv = gv_fetchpvn_flags("FileHandle::", 12, 0, SVt_PVHV);
+    iogv = gv_fetchpvs("FileHandle::", 0, SVt_PVHV);
     /* unless exists($main::{FileHandle}) and defined(%main::FileHandle::) */
     if (!(iogv && GvHV(iogv) && HvARRAY(GvHV(iogv))))
-      iogv = gv_fetchpvn_flags("IO::Handle::", 12, TRUE, SVt_PVHV);
+      iogv = gv_fetchpvs("IO::Handle::", GV_ADD, SVt_PVHV);
     SvSTASH_set(io, (HV*)SvREFCNT_inc(GvHV(iogv)));
     return io;
 }