From 7391a1634af9fc4c03048f12594b25fd776ccf98 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Fri, 12 Aug 2011 12:29:07 -0700 Subject: =?UTF-8?q?Remove=20select=E2=80=99s=20prototype?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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.) --- op.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'op.c') 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("+"); -- cgit v1.2.1