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)
{