From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 6 Jul 1998 22:20:29 +0000 (+0000)
Subject: much simpler fix to typecheck read/sysread/recv, as suggested by
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=49e9fbe6f8d875cf2a3509f12f64e2767ea8756d;p=p5sagit%2Fp5-mst-13.2.git

much simpler fix to typecheck read/sysread/recv, as suggested by
Stephen McCamant

p4raw-id: //depot/perl@1346
---

diff --git a/op.c b/op.c
index b567c9a..ab7a056 100644
--- a/op.c
+++ b/op.c
@@ -1304,6 +1304,9 @@ scalar_mod_type(OP *o, I32 type)
     case OP_CONCAT:
     case OP_SUBST:
     case OP_TRANS:
+    case OP_READ:
+    case OP_SYSREAD:
+    case OP_RECV:
     case OP_ANDASSIGN:	/* may work later */
     case OP_ORASSIGN:	/* may work later */
 	return TRUE;
@@ -4974,7 +4977,7 @@ peep(register OP *o)
 
 	case OP_PADAV:
 	    if (o->op_next->op_type == OP_RV2AV
-		&& (o->op_next->op_flags && OPf_REF))
+		&& (o->op_next->op_flags & OPf_REF))
 	    {
 		null(o->op_next);
 	       	o->op_next = o->op_next->op_next;
@@ -4983,7 +4986,7 @@ peep(register OP *o)
 	
 	case OP_PADHV:
 	    if (o->op_next->op_type == OP_RV2HV
-		&& (o->op_next->op_flags && OPf_REF))
+		&& (o->op_next->op_flags & OPf_REF))
 	    {
 		null(o->op_next);
 	       	o->op_next = o->op_next->op_next;