X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=opcode.h;h=ff3c48ff533c7024a708e0788489c1dee7bb2b2f;hb=61de9fb5aad39c2904a43125c7c70031be6bc679;hp=8556e1ee3108a88f6572c10ae9e43f6fb3a40c7b;hpb=d6376244c2261025775e8b11a6a64d7c9e0d1612;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/opcode.h b/opcode.h
index 8556e1e..ff3c48f 100644
--- a/opcode.h
+++ b/opcode.h
@@ -380,6 +380,8 @@ EXT char *PL_op_name[] = {
 	"threadsv",
 	"setstate",
 	"method_named",
+	"dor",
+	"dorassign",
 	"custom",
 };
 #endif
@@ -739,6 +741,8 @@ EXT char *PL_op_desc[] = {
 	"per-thread value",
 	"set statement info",
 	"method with known name",
+	"defined or (//)",
+	"defined or assignment (//=)",
 	"unknown custom operator",
 };
 #endif
@@ -1103,6 +1107,8 @@ EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX) = {
 	MEMBER_TO_FPTR(Perl_pp_threadsv),
 	MEMBER_TO_FPTR(Perl_pp_setstate),
 	MEMBER_TO_FPTR(Perl_pp_method_named),
+	MEMBER_TO_FPTR(Perl_pp_dor),
+	MEMBER_TO_FPTR(Perl_pp_dorassign),
 };
 #endif
 
@@ -1461,6 +1467,8 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
 	MEMBER_TO_FPTR(Perl_ck_null),	/* threadsv */
 	MEMBER_TO_FPTR(Perl_ck_null),	/* setstate */
 	MEMBER_TO_FPTR(Perl_ck_null),	/* method_named */
+	MEMBER_TO_FPTR(Perl_ck_null),	/* dor */
+	MEMBER_TO_FPTR(Perl_ck_null),	/* dorassign */
 	MEMBER_TO_FPTR(Perl_ck_null),	/* custom */
 };
 #endif
@@ -1820,6 +1828,8 @@ EXT U32 PL_opargs[] = {
 	0x00000044,	/* threadsv */
 	0x00001404,	/* setstate */
 	0x00000c40,	/* method_named */
+	0x00000600,	/* dor */
+	0x00000604,	/* dorassign */
 	0x00000000,	/* custom */
 };
 #endif