From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 24 Apr 2007 10:32:33 +0000 (+0000)
Subject: Fix a bug in dor assignment (@x //= 1 was triggering an
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=410d09fe7bf183b91b57fda7558a8a97b5eb200a;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;