PERL_CALLCONV int Perl_magic_setglob(pTHX_ SV* sv, MAGIC* mg);
PERL_CALLCONV AV * Perl_newAV(pTHX);
PERL_CALLCONV HV * Perl_newHV(pTHX);
+PERL_CALLCONV IO * Perl_newIO(pTHX);
/* ref() is now a macro using Perl_doref;
* this version provided for binary compatibility only.
PP(pp_padany)
{
DIE(aTHX_ "NOT IMPL LINE %d",__LINE__);
+ return NORMAL;
}
PP(pp_mapstart)
{
DIE(aTHX_ "panic: mapstart"); /* uses grepstart */
+ return NORMAL;
}
/* These ops all have the same body as pp_null. */
GV *
Perl_gv_SVadd(pTHX_ GV *gv)
{
- PERL_ARGS_ASSERT_GV_SVADD;
-
return gv_SVadd(gv);
}
#endif
GV *
Perl_gv_AVadd(pTHX_ GV *gv)
{
- PERL_ARGS_ASSERT_GV_AVADD;
-
return gv_AVadd(gv);
}
GV *
Perl_gv_HVadd(pTHX_ register GV *gv)
{
- PERL_ARGS_ASSERT_GV_HVADD;
-
return gv_HVadd(gv);
}
+GV *
+Perl_gv_IOadd(pTHX_ register GV *gv)
+{
+ return gv_IOadd(gv);
+}
+
+IO *
+Perl_newIO(pTHX)
+{
+ return MUTABLE_IO(newSV_type(SVt_PVIO));
+}
+
#endif /* NO_MATHOMS */
/*