Fix a bug in dor assignment (@x //= 1 was triggering an

assertion failure)

p4raw-id: //depot/perl@31050

diff --git a/op.c b/op.c
index 8cf8cd9..50728a5 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1649,6 +1649,7 @@ S_scalar_mod_type(const OP *o, I32 type)
     case OP_RECV:
     case OP_ANDASSIGN:
     case OP_ORASSIGN:
+    case OP_DORASSIGN:
        return TRUE;
     default:
        return FALSE;