Perl_newIO() can become a mathom by making newIO() a wrapper around newSV_type()

and tweaking Perl_sv_upgrade().

1 files changed, 3 insertions, 0 deletions

diff --git a/sv.h b/sv.h
index 0d275d25cf..90771a492e 100644
--- a/sv.h
+++ b/sv.h
@@ -2016,6 +2016,9 @@ Evaluates I<sv> more than once. Sets I<len> to 0 if C<SvOOK(sv)> is false.
 	}								\
     } STMT_END
 #endif
+
+#define newIO()	MUTABLE_IO(newSV_type(SVt_PVIO))
+
 /*
  * Local variables:
  * c-indentation-style: bsd