X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=opcode.h;h=952763861c8c18a495809960b8b090daf8a8b360;hb=2b8dc4d2eb8ad36cf53b962575087dfa9dc6d602;hp=abd180cd498e7fabd9bc1d34f19fce0e521857e6;hpb=3d3b6b6ab18ad3a293b948e401c7027246b1a1fc;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/opcode.h b/opcode.h
index abd180c..9527638 100644
--- a/opcode.h
+++ b/opcode.h
@@ -183,6 +183,7 @@ EXT char *PL_op_name[] = {
 	"method",
 	"entersub",
 	"leavesub",
+	"leavesublv",
 	"caller",
 	"warn",
 	"die",
@@ -540,6 +541,7 @@ EXT char *PL_op_desc[] = {
 	"method lookup",
 	"subroutine entry",
 	"subroutine exit",
+	"lvalue subroutine exit",
 	"caller",
 	"warn",
 	"die",
@@ -902,6 +904,7 @@ EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX) = {
 	Perl_pp_method,
 	Perl_pp_entersub,
 	Perl_pp_leavesub,
+	Perl_pp_leavesublv,
 	Perl_pp_caller,
 	Perl_pp_warn,
 	Perl_pp_die,
@@ -1231,7 +1234,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
 	Perl_ck_fun,	/* unpack */
 	Perl_ck_fun,	/* pack */
 	Perl_ck_split,	/* split */
-	Perl_ck_fun,	/* join */
+	Perl_ck_join,	/* join */
 	Perl_ck_null,	/* list */
 	Perl_ck_null,	/* lslice */
 	Perl_ck_fun,	/* anonlist */
@@ -1259,6 +1262,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
 	Perl_ck_method,	/* method */
 	Perl_ck_subr,	/* entersub */
 	Perl_ck_null,	/* leavesub */
+	Perl_ck_null,	/* leavesublv */
 	Perl_ck_fun,	/* caller */
 	Perl_ck_fun,	/* warn */
 	Perl_ck_fun,	/* die */
@@ -1616,6 +1620,7 @@ EXT U32 PL_opargs[] = {
 	0x00000240,	/* method */
 	0x00004249,	/* entersub */
 	0x00000200,	/* leavesub */
+	0x00000200,	/* leavesublv */
 	0x00013608,	/* caller */
 	0x0000481d,	/* warn */
 	0x0000485d,	/* die */