Parsing fix: it wasn't possible to call a function with a (_) prototype

[perl5.git] / madly.y

diff --git a/madly.y b/madly.y
index 86a4c5e..6021289 100644 (file)
--- a/madly.y
+++ b/madly.y
@@ -1070,6 +1070,8 @@ term      :       termbinop
                        { $$ = newOP(OP_REQUIRE, $1 ? OPf_SPECIAL : 0); }
        |       REQUIRE term                         /* require Foo *//* FIMXE for MAD needed? */
                        { $$ = newUNOP(OP_REQUIRE, $1 ? OPf_SPECIAL : 0, $2); }
+       |       UNIOPSUB
+                       { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar($1)); }
        |       UNIOPSUB term                        /* Sub treated as unop */
                        { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
                            append_elem(OP_LIST, $2, scalar($1))); }