X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=dump.c;h=50573bacb018acae1064503a8018bd4035c1ba39;hb=6d822dc4045278fb03135b2683bac92dba061369;hp=83fd09e75f995858868b6979f27c5cafe3690cea;hpb=485894a1e3cb3873ba7373c744a8b6231190fbf8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/dump.c b/dump.c
index 83fd09e..50573ba 100644
--- a/dump.c
+++ b/dump.c
@@ -461,8 +461,6 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o)
         else if (o->op_type == OP_AASSIGN) {
 	    if (o->op_private & OPpASSIGN_COMMON)
 		sv_catpv(tmpsv, ",COMMON");
-	    if (o->op_private & OPpASSIGN_HASH)
-		sv_catpv(tmpsv, ",HASH");
 	}
 	else if (o->op_type == OP_SASSIGN) {
 	    if (o->op_private & OPpASSIGN_BACKWARDS)