Added a failing test for a bareword parsing regression created in 984f9f66

[p5sagit/p5-mst-13.2.git] / mathoms.c

diff --git a/mathoms.c b/mathoms.c
index 012ccc2..108b762 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -1478,8 +1478,6 @@ Perl_save_op(pTHX)
 GV *
 Perl_gv_SVadd(pTHX_ GV *gv)
 {
-    PERL_ARGS_ASSERT_GV_SVADD;
-
     return gv_SVadd(gv);
 }
 #endif
@@ -1487,19 +1485,21 @@ Perl_gv_SVadd(pTHX_ GV *gv)
 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)
 {