Defined-or patch (cleaned up)

From: "Brent Dax" <brentdax@cpan.org>
Message-id: <000001c234a1$d1ca72c0$6501a8c0@deepblue>

p4raw-id: //depot/perl@17682

1 files changed, 3 insertions, 0 deletions

diff --git a/opcode.pl b/opcode.pl
index 6df2f8befb..1c6c703d0a 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -924,6 +924,9 @@ threadsv	per-thread value	ck_null		ds0
 setstate	set statement info	ck_null		s;
 method_named	method with known name	ck_null		d$
 
+dor		defined or (//)			ck_null		|
+dorassign	defined or assignment (//=)	ck_null		s|
+
 # Add new ops before this, the custom operator.
 
 custom		unknown custom operator		ck_null		0