Functions with a (_) prototype should behave as unary operators

(which is not the case of functions with a (;$) prototype)

p4raw-id: //depot/perl@29041

diff --git a/toke.c b/toke.c
index 0629099..4158e32 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -5403,7 +5403,7 @@ Perl_yylex(pTHX)
                        const char *proto = SvPV_const((SV*)cv, protolen);
                        if (!protolen)
                            TERM(FUNC0SUB);
                        const char *proto = SvPV_const((SV*)cv, protolen);
                        if (!protolen)
                            TERM(FUNC0SUB);

-                       if (*proto == '$' && proto[1] == '\0')
+                       if ((*proto == '$' || *proto == '_') && proto[1] == '\0')

                            OPERATOR(UNIOPSUB);
                        while (*proto == ';')
                            proto++;
                            OPERATOR(UNIOPSUB);
                        while (*proto == ';')
                            proto++;