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

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

p4raw-id: //depot/perl@29041

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 062909932a..4158e328c3 100644
--- 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);
-			if (*proto == '$' && proto[1] == '\0')
+			if ((*proto == '$' || *proto == '_') && proto[1] == '\0')
 			    OPERATOR(UNIOPSUB);
 			while (*proto == ';')
 			    proto++;