From: Stephen McCamant <smcc@mit.edu>
Date: Thu, 29 Jul 1999 14:08:50 +0000 (-0500)
Subject: Two one-liner LOGOP tweaks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=888b73cf7746e6ff4bfce766474e4835ce6513a0;p=p5sagit%2Fp5-mst-13.2.git

Two one-liner LOGOP tweaks

	Message-ID: <14240.42690.292893.605292@alias-2.pr.mcs.net>

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

diff --git a/op.c b/op.c
index 8b47448..e7250f1 100644
--- a/op.c
+++ b/op.c
@@ -5779,6 +5779,8 @@ Perl_peep(pTHX_ register OP *o)
 	case OP_GREPWHILE:
 	case OP_AND:
 	case OP_OR:
+	case OP_ANDASSIGN:
+	case OP_ORASSIGN:
 	case OP_COND_EXPR:
 	case OP_RANGE:
 	    o->op_seq = PL_op_seqmax++;
diff --git a/opcode.h b/opcode.h
index 7d9bd81..d9ec0d5 100644
--- a/opcode.h
+++ b/opcode.h
@@ -1965,7 +1965,7 @@ EXT U32 PL_opargs[] = {
 	0x00000200,	/* flop */
 	0x00000600,	/* and */
 	0x00000600,	/* or */
-	0x00022606,	/* xor */
+	0x00022406,	/* xor */
 	0x00000640,	/* cond_expr */
 	0x00000604,	/* andassign */
 	0x00000604,	/* orassign */
diff --git a/opcode.pl b/opcode.pl
index 62683d7..6e56a10 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -530,7 +530,7 @@ flop		range (or flop)		ck_null		1
 
 and		logical and		ck_null		|	
 or		logical or		ck_null		|	
-xor		logical xor		ck_null		fs|	S S	
+xor		logical xor		ck_null		fs2	S S	
 cond_expr	conditional expression	ck_null		d|	
 andassign	logical and assignment	ck_null		s|	
 orassign	logical or assignment	ck_null		s|