Give not and getprotobynumber listop prototypes

They parse as list operators, but their prototypes imply unop
precedence.

diff --git a/op.c b/op.c
index 6c46f2a..775705b 100644 (file)
--- a/op.c
+++ b/op.c
@@ -10420,6 +10420,7 @@ Perl_core_prototype(pTHX_ SV *sv, const char *name, const int code,
     }
     if (defgv && str[0] == '$')
        str[0] = '_';
+    if (code == -KEY_not || code == -KEY_getprotobynumber) str[n++] = ';';
     str[n++] = '\0';
     sv_setpvn(sv, str, n - 1);
     if (opnum) *opnum = i;

diff --git a/t/op/cproto.t b/t/op/cproto.t
index e995416..a587a31 100644 (file)
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -105,7 +105,7 @@ getpgrp (;$)
 getppid ()
 getpriority ($$)
 getprotobyname ($)
-getprotobynumber ($)
+getprotobynumber ($;)
 getprotoent ()
 getpwent ()
 getpwnam ($)
@@ -153,7 +153,7 @@ my undef
 ne undef
 next undef
 no undef
-not ($)
+not ($;)
 oct (_)
 open (*;$@)
 opendir (*$)