diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-15 09:23:50 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-15 12:47:33 -0700 |
| commit | dcbdef25d6257b5884d709cd40a0fdf5314546ef (patch) | |
| tree | e96739f83200bd18dc26fa72140ce85992755c7c | |
| parent | 3a8944db48a72ff3e936211f8b0433b10f3c6c80 (diff) | |
| download | perl-dcbdef25d6257b5884d709cd40a0fdf5314546ef.tar.gz | |
Give not and getprotobynumber listop prototypes
They parse as list operators, but their prototypes imply unop
precedence.
| -rw-r--r-- | op.c | 1 | ||||
| -rw-r--r-- | t/op/cproto.t | 4 |
2 files changed, 3 insertions, 2 deletions
@@ -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 e995416fb3..a587a316a8 100644 --- 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 (*$) |