diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm
index d7a219e7fd2a..b53184e02556 100644
--- a/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm
+++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm
@@ -781,7 +781,9 @@ corresponding OUTPUT code:
                 $var.context.value().size());
   ',
     'T_OUT' => '    {
-            GV *gv = newGVgen("$Package");
+            GV *gv = (GV *)sv_newmortal();
+            gv_init_pvn(gv, gv_stashpvs("$Package",1),
+                       "__ANONIO__",10,0);
             if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
                 sv_setsv(
                   $arg,
diff --git a/dist/Time-HiRes/typemap b/dist/Time-HiRes/typemap
index 3fa91f3a0b3c..768e56a4f511 100644
--- a/dist/Time-HiRes/typemap
+++ b/dist/Time-HiRes/typemap
@@ -282,7 +282,8 @@ T_ARRAY
         }
 T_STDIO
 	{
-	    GV *gv = newGVgen("$Package");
+	    GV *gv = (GV *)sv_newmortal();
+	    gv_init(gv, gv_stashpv("$Package",1),"__ANONIO__",10,0);
 	    PerlIO *fp = PerlIO_importFILE($var,0);
 	    if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) )
 		sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
@@ -291,7 +292,8 @@ T_STDIO
 	}
 T_IN
 	{
-	    GV *gv = newGVgen("$Package");
+	    GV *gv = (GV *)sv_newmortal();
+	    gv_init(gv, gv_stashpv("$Package",1),"__ANONIO__",10,0);
 	    if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
 		sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
 	    else
@@ -299,7 +301,8 @@ T_IN
 	}
 T_INOUT
 	{
-	    GV *gv = newGVgen("$Package");
+	    GV *gv = (GV *)sv_newmortal();
+	    gv_init(gv, gv_stashpv("$Package",1),"__ANONIO__",10,0);
 	    if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) )
 		sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
 	    else
@@ -307,7 +310,8 @@ T_INOUT
 	}
 T_OUT
 	{
-	    GV *gv = newGVgen("$Package");
+	    GV *gv = (GV *)sv_newmortal();
+	    gv_init(gv, gv_stashpv("$Package",1),"__ANONIO__",10,0);
 	    if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
 		sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
 	    else
diff --git a/os2/os2.c b/os2/os2.c
index 20572f0acb60..66f387bd3c4d 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -4257,7 +4257,8 @@ XS(XS_OS2_pipe)
 	perlio = PerlIO_fdopen(hpipe, buf);
 	ST(0) = sv_newmortal();
 	{
-	    GV *gv = newGVgen("OS2::pipe");
+	    GV *gv = (GV *)sv_newmortal();
+	    gv_init_pvn(gv, gv_stashpvs("OS2::pipe",1),"__ANONIO__",10,0);
 	    if ( do_open6(gv, perltype, strlen(perltype), perlio, NULL, 0) )
 		sv_setsv(ST(0), sv_bless(newRV((SV*)gv), gv_stashpv("IO::Handle",1)));
 	    else