From: David Mitchell <davem@iabyn.com>
Date: Tue, 8 Aug 2017 11:19:53 +0000 (+0100)
Subject: regen/op_private: remove sassign special-casing
X-Git-Tag: v5.27.3~46
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/e2e878313e77becb4fe3ad805fdf68208421676f

regen/op_private: remove sassign special-casing

Since v5.25.5-46-g1257c08, sassign has been correctly listed in
regen/opcodes as a binary op ('2') rather than as a base op, so there's no
need to special-case it in regen/op_private any more.

This commit makes no functional changes, because since
v5.25.5-46-g1257c08, $args2{sassign} was redundantly getting set to a true
value twice, which was harmless. Now it only gets set once.
---

diff --git a/regen/op_private b/regen/op_private
index 0122863..753a0bd 100644
--- a/regen/op_private
+++ b/regen/op_private
@@ -220,9 +220,6 @@ use strict;
                         qw(vec),
                         grep !$maxarg{$_} && !$args0{$_} && !$args1{$_},
                             ops_with_flag('2'), # BINOP
-                            # this is a binop, but special-cased as a
-                            # baseop in regen/opcodes
-                            'sassign',
                     );
 
     $args3{$_} = 1 for grep !$maxarg{$_} && !$args0{$_}