Give not and getprotobynumber listop prototypes

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

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 6c46f2aefa..775705b55e 100644
--- 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;