Remove select’s prototype

select has a prototype of (;*), which is incorrect, as it implied that
it has high precedence.  It also fails to account for the four-argu-
ment form.  While removing all incorrect prototypes is counterproduc-
tive, I think this one is wrong enough it deserves to go.  (And the
precedence problem is a good argument against it, as there is cur-
rently no other way to set precedence.)

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index 0ab2d1e1e7..1f6743d8b5 100644
--- a/op.c
+++ b/op.c
@@ -10283,7 +10283,7 @@ Perl_core_prototype(pTHX_ SV *sv, const char *name, const STRLEN len,
     case KEY_cmp   : case KEY_exec: case KEY_eq   :
     case KEY_ge    : case KEY_gt  : case KEY_le   :
     case KEY_lt    : case KEY_ne  : case KEY_or   :
-    case KEY_system: case KEY_x   : case KEY_xor  :
+    case KEY_select: case KEY_system: case KEY_x  : case KEY_xor:
 	return NULL;
     case KEY_keys: case KEY_values: case KEY_each:
 	retsetpvs("+");