Merge f002567 into 6b28089

Perl · Jul 30, 2021 · 5c0350e · 5c0350e
2 parents 6b28089 + f002567
commit 5c0350e
Show file tree

Hide file tree

Showing 6 changed files with 1,379 additions and 1,494 deletions.
diff --git a/op.c b/op.c
@@ -9197,17 +9197,18 @@ Perl_newASSIGNOP(pTHX_ I32 flags, OP *left, I32 optype, OP *right)
     OP *o;
     I32 assign_type;
 
-    if (optype) {
-        if (optype == OP_ANDASSIGN || optype == OP_ORASSIGN || optype == OP_DORASSIGN) {
+    switch (optype) {
+        case 0: break;
+        case OP_ANDASSIGN:
+        case OP_ORASSIGN:
+        case OP_DORASSIGN:
             right = scalar(right);
             return newLOGOP(optype, 0,
                 op_lvalue(scalar(left), optype),
                 newBINOP(OP_SASSIGN, OPpASSIGN_BACKWARDS<<8, right, right));
-        }
-        else {
+        default:
             return newBINOP(optype, OPf_STACKED,
                 op_lvalue(scalar(left), optype), scalar(right));
-        }
     }
 
     if ((assign_type = assignment_type(left)) == ASSIGN_LIST) {