[perl #90030] sort with no arguments

This eliminates the error ‘sort is now a reserved word’, which was
added for the sake of code that does close(sort) at about the time
that sort became a keyword.

As Tom Christiansen pointed out, it has been long enough.

This error only occurred with ) or ; after the keyword.  In other
cases with no arguments, like {sort} and (sort,0), it was treated as
an empty list.

So this commit makes it follow that.

Since the tests triggered it, this commit also fixes a crash caused by
commit 540dd770, which, when seeing whether it can optimise something
like ‘@a = sort @a’, assumes that there is something after the sort,
and crashes when there isn’t, as in {@a = sort}.

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index 709ef91d3f..b448defd67 100644
--- a/op.c
+++ b/op.c
@@ -9811,7 +9811,7 @@ S_inplace_aassign(pTHX_ OP *o) {
 	return;
 
     assert(cUNOPx(modop)->op_first->op_type == OP_PUSHMARK);
-    oright = cUNOPx(modop)->op_first->op_sibling;
+    if (!(oright = cUNOPx(modop)->op_first->op_sibling)) return;
 
     if (modop->op_flags & OPf_STACKED) {
 	/* skip sort subroutine/block */