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

assertion failure)

p4raw-id: //depot/perl@31050

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 8cf8cd9c5c..50728a535c 100644
--- 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;