Remove OA_DANGEROUS from sort

OA_DANGEROUS indicates that temporary copies may need to be made in
list assignment, to handle things like:

($a, $b) = ($b, $a);

In other words, an op type is flagged with OA_DANGEROUS if its return
values could occur elsewhere on the stack.

pp_sort returns its arguments.  aassign_common_vars will check its kid
ops for danger as well, so it’s not necessary for sort itself to be
flagged this way.  This will allow cases like ($a,$b) = sort($c,$d) to
forego the temp copy.

1 files changed, 1 insertions, 1 deletions

diff --git a/opcode.h b/opcode.h
index b3b46be8e1..5d29d5235a 100644
--- a/opcode.h
+++ b/opcode.h
@@ -1898,7 +1898,7 @@ EXTCONST U32 PL_opargs[] = {
 	0x0000bb04,	/* pop */
 	0x0000bb04,	/* shift */
 	0x0002341d,	/* unshift */
-	0x0002d441,	/* sort */
+	0x0002d401,	/* sort */
 	0x00002409,	/* reverse */
 	0x00025441,	/* grepstart */
 	0x00000348,	/* grepwhile */