From f17d9825ab9b50967fd3d8742cc1bbccec96c049 Mon Sep 17 00:00:00 2001 From: "Paul \"LeoNerd\" Evans" Date: Sat, 19 Nov 2022 11:48:19 +0000 Subject: Recognise `//=` and `||=` syntax in signature parameter defaults These create parameters where the default expression is assigned whenever the caller did not pass a defined (or true) value. I.e. both if it is missing, or is present but undef (or false). --- opcode.h | 239 ++++++++++++++++++++++++++++++++------------------------------- 1 file changed, 122 insertions(+), 117 deletions(-) (limited to 'opcode.h') diff --git a/opcode.h b/opcode.h index f882391085..8a66677edb 100644 --- a/opcode.h +++ b/opcode.h @@ -2343,6 +2343,7 @@ END_EXTERN_C #define OPpLVREF_CV 0x30 #define OPpLVREF_TYPE 0x30 #define OPpALLOW_FAKE 0x40 +#define OPpARG_IF_FALSE 0x40 #define OPpASSIGN_BACKWARDS 0x40 #define OPpASSIGN_COMMON_SCALAR 0x40 #define OPpCONCAT_NESTED 0x40 @@ -2363,6 +2364,7 @@ END_EXTERN_C #define OPpSLICE 0x40 #define OPpTRANS_GROWS 0x40 #define OPpPADRANGE_COUNTMASK 0x7f +#define OPpARG_IF_UNDEF 0x80 #define OPpASSIGN_CV_TO_GV 0x80 #define OPpCOREARGS_PUSHMARK 0x80 #define OPpDEFER_FINALLY 0x80 @@ -2443,6 +2445,8 @@ EXTCONST char PL_op_private_labels[] = { 'H','U','S','H','\0', 'H','V','\0', 'I','D','E','N','T','\0', + 'I','F','_','F','A','L','S','E','\0', + 'I','F','_','U','N','D','E','F','\0', 'I','M','P','L','I','M','\0', 'I','N','A','R','G','S','\0', 'I','N','B','I','N','\0', @@ -2510,14 +2514,14 @@ EXTCONST char PL_op_private_labels[] = { EXTCONST I16 PL_op_private_bitfields[] = { 0, 8, -1, 0, 8, -1, - 0, 613, -1, + 0, 631, -1, 0, 8, -1, 0, 8, -1, - 0, 620, -1, - 0, 609, -1, - 1, -1, 0, 570, 1, 39, 2, 312, -1, + 0, 638, -1, + 0, 627, -1, + 1, -1, 0, 588, 1, 39, 2, 312, -1, 4, -1, 1, 185, 2, 192, 3, 199, -1, - 4, -1, 0, 570, 1, 39, 2, 312, 3, 131, -1, + 4, -1, 0, 588, 1, 39, 2, 312, 3, 131, -1, }; @@ -2718,28 +2722,28 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { [OP_LEAVESUBLV] = 188, [OP_ARGCHECK] = 0, [OP_ARGELEM] = 190, - [OP_ARGDEFELEM] = 0, - [OP_CALLER] = 192, + [OP_ARGDEFELEM] = 192, + [OP_CALLER] = 195, [OP_WARN] = 55, [OP_DIE] = 55, [OP_RESET] = 55, [OP_LINESEQ] = -1, - [OP_NEXTSTATE] = 194, - [OP_DBSTATE] = 194, + [OP_NEXTSTATE] = 197, + [OP_DBSTATE] = 197, [OP_UNSTACK] = -1, [OP_ENTER] = -1, - [OP_LEAVE] = 195, + [OP_LEAVE] = 198, [OP_SCOPE] = -1, - [OP_ENTERITER] = 197, - [OP_ITER] = 201, + [OP_ENTERITER] = 200, + [OP_ITER] = 204, [OP_ENTERLOOP] = -1, - [OP_LEAVELOOP] = 202, + [OP_LEAVELOOP] = 205, [OP_RETURN] = -1, - [OP_LAST] = 204, - [OP_NEXT] = 204, - [OP_REDO] = 204, - [OP_DUMP] = 204, - [OP_GOTO] = 204, + [OP_LAST] = 207, + [OP_NEXT] = 207, + [OP_REDO] = 207, + [OP_DUMP] = 207, + [OP_GOTO] = 207, [OP_EXIT] = 55, [OP_METHOD] = 0, [OP_METHOD_NAMED] = 0, @@ -2752,7 +2756,7 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { [OP_LEAVEWHEN] = 0, [OP_BREAK] = -1, [OP_CONTINUE] = -1, - [OP_OPEN] = 206, + [OP_OPEN] = 209, [OP_CLOSE] = 55, [OP_PIPE_OP] = 55, [OP_FILENO] = 55, @@ -2798,33 +2802,33 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { [OP_GETPEERNAME] = 0, [OP_LSTAT] = 0, [OP_STAT] = 0, - [OP_FTRREAD] = 211, - [OP_FTRWRITE] = 211, - [OP_FTREXEC] = 211, - [OP_FTEREAD] = 211, - [OP_FTEWRITE] = 211, - [OP_FTEEXEC] = 211, - [OP_FTIS] = 216, - [OP_FTSIZE] = 216, - [OP_FTMTIME] = 216, - [OP_FTATIME] = 216, - [OP_FTCTIME] = 216, - [OP_FTROWNED] = 216, - [OP_FTEOWNED] = 216, - [OP_FTZERO] = 216, - [OP_FTSOCK] = 216, - [OP_FTCHR] = 216, - [OP_FTBLK] = 216, - [OP_FTFILE] = 216, - [OP_FTDIR] = 216, - [OP_FTPIPE] = 216, - [OP_FTSUID] = 216, - [OP_FTSGID] = 216, - [OP_FTSVTX] = 216, - [OP_FTLINK] = 216, - [OP_FTTTY] = 216, - [OP_FTTEXT] = 216, - [OP_FTBINARY] = 216, + [OP_FTRREAD] = 214, + [OP_FTRWRITE] = 214, + [OP_FTREXEC] = 214, + [OP_FTEREAD] = 214, + [OP_FTEWRITE] = 214, + [OP_FTEEXEC] = 214, + [OP_FTIS] = 219, + [OP_FTSIZE] = 219, + [OP_FTMTIME] = 219, + [OP_FTATIME] = 219, + [OP_FTCTIME] = 219, + [OP_FTROWNED] = 219, + [OP_FTEOWNED] = 219, + [OP_FTZERO] = 219, + [OP_FTSOCK] = 219, + [OP_FTCHR] = 219, + [OP_FTBLK] = 219, + [OP_FTFILE] = 219, + [OP_FTDIR] = 219, + [OP_FTPIPE] = 219, + [OP_FTSUID] = 219, + [OP_FTSGID] = 219, + [OP_FTSVTX] = 219, + [OP_FTLINK] = 219, + [OP_FTTTY] = 219, + [OP_FTTEXT] = 219, + [OP_FTBINARY] = 219, [OP_CHDIR] = 101, [OP_CHOWN] = 101, [OP_CHROOT] = 78, @@ -2844,17 +2848,17 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { [OP_REWINDDIR] = 0, [OP_CLOSEDIR] = 0, [OP_FORK] = -1, - [OP_WAIT] = 220, + [OP_WAIT] = 223, [OP_WAITPID] = 101, [OP_SYSTEM] = 101, [OP_EXEC] = 101, [OP_KILL] = 101, - [OP_GETPPID] = 220, + [OP_GETPPID] = 223, [OP_GETPGRP] = 101, [OP_SETPGRP] = 101, [OP_GETPRIORITY] = 101, [OP_SETPRIORITY] = 101, - [OP_TIME] = 220, + [OP_TIME] = 223, [OP_TMS] = -1, [OP_LOCALTIME] = 0, [OP_GMTIME] = 55, @@ -2874,7 +2878,7 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { [OP_REQUIRE] = 0, [OP_DOFILE] = 0, [OP_HINTSEVAL] = -1, - [OP_ENTEREVAL] = 221, + [OP_ENTEREVAL] = 224, [OP_LEAVEEVAL] = 188, [OP_ENTERTRY] = 0, [OP_LEAVETRY] = -1, @@ -2913,17 +2917,17 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { [OP_LOCK] = 0, [OP_ONCE] = 0, [OP_CUSTOM] = -1, - [OP_COREARGS] = 227, - [OP_AVHVSWITCH] = 231, + [OP_COREARGS] = 230, + [OP_AVHVSWITCH] = 234, [OP_RUNCV] = 3, [OP_FC] = 0, [OP_PADCV] = -1, [OP_INTROCV] = -1, [OP_CLONECV] = -1, - [OP_PADRANGE] = 233, - [OP_REFASSIGN] = 235, - [OP_LVREF] = 241, - [OP_LVREFSLICE] = 247, + [OP_PADRANGE] = 236, + [OP_REFASSIGN] = 238, + [OP_LVREF] = 244, + [OP_LVREFSLICE] = 250, [OP_LVAVREF] = 16, [OP_ANONCONST] = 0, [OP_ISA] = 12, @@ -2933,7 +2937,7 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { [OP_LEAVETRYCATCH] = -1, [OP_POPTRY] = -1, [OP_CATCH] = 0, - [OP_PUSHDEFER] = 248, + [OP_PUSHDEFER] = 251, [OP_IS_BOOL] = 0, [OP_IS_WEAK] = 0, [OP_WEAKEN] = 0, @@ -2962,80 +2966,81 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { */ EXTCONST U16 PL_op_private_bitdefs[] = { - 0x0003, /* scalar, prototype, refgen, srefgen, readline, regcmaybe, regcreset, regcomp, substcont, chop, schop, defined, study, preinc, i_preinc, predec, i_predec, postinc, i_postinc, postdec, i_postdec, negate, i_negate, not, ucfirst, lcfirst, uc, lc, quotemeta, aeach, avalues, each, pop, shift, grepstart, mapstart, mapwhile, range, and, or, dor, andassign, orassign, dorassign, argcheck, argdefelem, method, method_named, method_super, method_redir, method_redir_super, entergiven, leavegiven, enterwhen, leavewhen, untie, tied, dbmclose, getsockname, getpeername, lstat, stat, readlink, readdir, telldir, rewinddir, closedir, localtime, alarm, require, dofile, entertry, ghbyname, gnbyname, gpbyname, shostent, snetent, sprotoent, sservent, gpwnam, gpwuid, ggrnam, ggrgid, lock, once, fc, anonconst, cmpchain_and, cmpchain_dup, entertrycatch, catch, is_bool, is_weak, weaken, unweaken, is_tainted */ - 0x32fc, 0x43f9, /* pushmark */ + 0x0003, /* scalar, prototype, refgen, srefgen, readline, regcmaybe, regcreset, regcomp, substcont, chop, schop, defined, study, preinc, i_preinc, predec, i_predec, postinc, i_postinc, postdec, i_postdec, negate, i_negate, not, ucfirst, lcfirst, uc, lc, quotemeta, aeach, avalues, each, pop, shift, grepstart, mapstart, mapwhile, range, and, or, dor, andassign, orassign, dorassign, argcheck, method, method_named, method_super, method_redir, method_redir_super, entergiven, leavegiven, enterwhen, leavewhen, untie, tied, dbmclose, getsockname, getpeername, lstat, stat, readlink, readdir, telldir, rewinddir, closedir, localtime, alarm, require, dofile, entertry, ghbyname, gnbyname, gpbyname, shostent, snetent, sprotoent, sservent, gpwnam, gpwuid, ggrnam, ggrgid, lock, once, fc, anonconst, cmpchain_and, cmpchain_dup, entertrycatch, catch, is_bool, is_weak, weaken, unweaken, is_tainted */ + 0x353c, 0x4639, /* pushmark */ 0x00bd, /* wantarray, runcv */ - 0x0558, 0x1b70, 0x44ac, 0x4048, 0x3825, /* const */ - 0x32fc, 0x3979, /* gvsv */ + 0x0558, 0x1b70, 0x46ec, 0x4288, 0x3a65, /* const */ + 0x353c, 0x3bb9, /* gvsv */ 0x19d5, /* gv */ 0x0067, /* gelem, lt, i_lt, gt, i_gt, le, i_le, ge, i_ge, eq, i_eq, ne, i_ne, ncmp, i_ncmp, slt, sgt, sle, sge, seq, sne, scmp, smartmatch, lslice, xor, isa */ - 0x32fc, 0x43f8, 0x03d7, /* padsv */ - 0x32fc, 0x43f8, 0x0003, /* padsv_store, lvavref */ - 0x32fc, 0x43f8, 0x06d4, 0x33ec, 0x41c9, /* padav */ - 0x32fc, 0x43f8, 0x06d4, 0x0770, 0x33ec, 0x41c8, 0x2e61, /* padhv */ - 0x32fc, 0x1d58, 0x03d6, 0x33ec, 0x3748, 0x44a4, 0x0003, /* rv2gv */ - 0x32fc, 0x3978, 0x03d6, 0x44a4, 0x0003, /* rv2sv */ - 0x33ec, 0x0003, /* av2arylen, akeys, values, keys */ - 0x36bc, 0x1198, 0x0ef4, 0x014c, 0x47a8, 0x44a4, 0x0003, /* rv2cv */ + 0x353c, 0x4638, 0x03d7, /* padsv */ + 0x353c, 0x4638, 0x0003, /* padsv_store, lvavref */ + 0x353c, 0x4638, 0x06d4, 0x362c, 0x4409, /* padav */ + 0x353c, 0x4638, 0x06d4, 0x0770, 0x362c, 0x4408, 0x30a1, /* padhv */ + 0x353c, 0x1d58, 0x03d6, 0x362c, 0x3988, 0x46e4, 0x0003, /* rv2gv */ + 0x353c, 0x3bb8, 0x03d6, 0x46e4, 0x0003, /* rv2sv */ + 0x362c, 0x0003, /* av2arylen, akeys, values, keys */ + 0x38fc, 0x1198, 0x0ef4, 0x014c, 0x49e8, 0x46e4, 0x0003, /* rv2cv */ 0x06d4, 0x0770, 0x0003, /* ref, blessed */ 0x018f, /* bless, glob, sprintf, formline, unpack, pack, join, anonlist, anonhash, splice, warn, die, reset, exit, close, pipe_op, fileno, umask, binmode, tie, dbmopen, sselect, select, getc, read, enterwrite, sysopen, sysseek, sysread, syswrite, eof, tell, seek, truncate, fcntl, ioctl, send, recv, socket, sockpair, bind, connect, listen, accept, shutdown, gsockopt, ssockopt, open_dir, seekdir, gmtime, shmget, shmctl, shmread, shmwrite, msgget, msgctl, msgsnd, msgrcv, semop, semget, semctl, ghbyaddr, gnbyaddr, gpbynumber, gsbyname, gsbyport, syscall */ - 0x3b5c, 0x3a78, 0x2ab4, 0x29f0, 0x0003, /* backtick */ + 0x3d9c, 0x3cb8, 0x2cf4, 0x2c30, 0x0003, /* backtick */ 0x06d5, /* subst */ - 0x129c, 0x23d8, 0x0ad4, 0x430c, 0x2768, 0x4a84, 0x08e1, /* trans, transr */ + 0x129c, 0x23d8, 0x0ad4, 0x454c, 0x2768, 0x4cc4, 0x08e1, /* trans, transr */ 0x10dc, 0x05f8, 0x0067, /* sassign */ - 0x0d98, 0x0c94, 0x0b90, 0x33ec, 0x06c8, 0x0067, /* aassign */ - 0x4850, 0x0003, /* chomp, schomp, scomplement, sin, cos, exp, log, sqrt, int, hex, oct, abs, ord, chr, chroot, rmdir, refaddr, reftype, ceil, floor */ - 0x32fc, 0x43f8, 0x2d74, 0x4850, 0x0003, /* undef */ - 0x06d4, 0x33ec, 0x0003, /* pos */ - 0x4850, 0x0067, /* pow, multiply, i_multiply, divide, i_divide, modulo, i_modulo, add, i_add, subtract, i_subtract */ + 0x0d98, 0x0c94, 0x0b90, 0x362c, 0x06c8, 0x0067, /* aassign */ + 0x4a90, 0x0003, /* chomp, schomp, scomplement, sin, cos, exp, log, sqrt, int, hex, oct, abs, ord, chr, chroot, rmdir, refaddr, reftype, ceil, floor */ + 0x353c, 0x4638, 0x2fb4, 0x4a90, 0x0003, /* undef */ + 0x06d4, 0x362c, 0x0003, /* pos */ + 0x4a90, 0x0067, /* pow, multiply, i_multiply, divide, i_divide, modulo, i_modulo, add, i_add, subtract, i_subtract */ 0x1658, 0x0067, /* repeat */ - 0x35d8, 0x4850, 0x0067, /* concat */ - 0x32fc, 0x0338, 0x1d54, 0x4850, 0x458c, 0x0003, /* multiconcat */ - 0x4850, 0x018f, /* stringify, atan2, rand, srand, crypt, push, unshift, flock, chdir, chown, unlink, chmod, utime, rename, link, symlink, mkdir, waitpid, system, exec, kill, getpgrp, setpgrp, getpriority, setpriority, sleep */ - 0x4850, 0x49a9, /* left_shift, right_shift, nbit_and, nbit_xor, nbit_or, ncomplement */ - 0x49a9, /* bit_and, bit_xor, bit_or, sbit_and, sbit_xor, sbit_or, complement */ - 0x06d4, 0x4850, 0x0003, /* length */ - 0x3db0, 0x33ec, 0x012b, /* substr */ - 0x33ec, 0x0067, /* vec */ - 0x3558, 0x06d4, 0x4850, 0x018f, /* index, rindex */ - 0x32fc, 0x3978, 0x06d4, 0x33ec, 0x41c8, 0x44a4, 0x0003, /* rv2av */ + 0x3818, 0x4a90, 0x0067, /* concat */ + 0x353c, 0x0338, 0x1d54, 0x4a90, 0x47cc, 0x0003, /* multiconcat */ + 0x4a90, 0x018f, /* stringify, atan2, rand, srand, crypt, push, unshift, flock, chdir, chown, unlink, chmod, utime, rename, link, symlink, mkdir, waitpid, system, exec, kill, getpgrp, setpgrp, getpriority, setpriority, sleep */ + 0x4a90, 0x4be9, /* left_shift, right_shift, nbit_and, nbit_xor, nbit_or, ncomplement */ + 0x4be9, /* bit_and, bit_xor, bit_or, sbit_and, sbit_xor, sbit_or, complement */ + 0x06d4, 0x4a90, 0x0003, /* length */ + 0x3ff0, 0x362c, 0x012b, /* substr */ + 0x362c, 0x0067, /* vec */ + 0x3798, 0x06d4, 0x4a90, 0x018f, /* index, rindex */ + 0x353c, 0x3bb8, 0x06d4, 0x362c, 0x4408, 0x46e4, 0x0003, /* rv2av */ 0x025f, /* aelemfast, aelemfast_lex, aelemfastlex_store */ - 0x32fc, 0x31f8, 0x03d6, 0x33ec, 0x0067, /* aelem, helem */ - 0x32fc, 0x33ec, 0x41c9, /* aslice, hslice */ - 0x33ed, /* kvaslice, kvhslice */ - 0x32fc, 0x4118, 0x2f14, 0x0003, /* delete */ - 0x46d8, 0x0003, /* exists */ - 0x32fc, 0x3978, 0x06d4, 0x0770, 0x33ec, 0x41c8, 0x44a4, 0x2e61, /* rv2hv */ - 0x32fc, 0x31f8, 0x1314, 0x1c70, 0x33ec, 0x44a4, 0x0003, /* multideref */ - 0x32fc, 0x3978, 0x0410, 0x300c, 0x2829, /* split */ - 0x32fc, 0x2499, /* list */ - 0x32fc, 0x43f8, 0x0214, 0x4850, 0x018f, /* emptyavhv */ - 0x15b0, 0x2b4c, 0x3ea8, 0x2c44, 0x38e1, /* sort */ - 0x2b4c, 0x0003, /* reverse */ + 0x353c, 0x3438, 0x03d6, 0x362c, 0x0067, /* aelem, helem */ + 0x353c, 0x362c, 0x4409, /* aslice, hslice */ + 0x362d, /* kvaslice, kvhslice */ + 0x353c, 0x4358, 0x3154, 0x0003, /* delete */ + 0x4918, 0x0003, /* exists */ + 0x353c, 0x3bb8, 0x06d4, 0x0770, 0x362c, 0x4408, 0x46e4, 0x30a1, /* rv2hv */ + 0x353c, 0x3438, 0x1314, 0x1c70, 0x362c, 0x46e4, 0x0003, /* multideref */ + 0x353c, 0x3bb8, 0x0410, 0x324c, 0x2a69, /* split */ + 0x353c, 0x2499, /* list */ + 0x353c, 0x4638, 0x0214, 0x4a90, 0x018f, /* emptyavhv */ + 0x15b0, 0x2d8c, 0x40e8, 0x2e84, 0x3b21, /* sort */ + 0x2d8c, 0x0003, /* reverse */ 0x06d4, 0x0003, /* grepwhile */ - 0x3098, 0x0003, /* flip, flop */ - 0x32fc, 0x0003, /* cond_expr */ - 0x32fc, 0x1198, 0x03d6, 0x014c, 0x47a8, 0x44a4, 0x2901, /* entersub */ - 0x3c18, 0x0003, /* leavesub, leavesublv, leavewrite, leaveeval */ + 0x32d8, 0x0003, /* flip, flop */ + 0x353c, 0x0003, /* cond_expr */ + 0x353c, 0x1198, 0x03d6, 0x014c, 0x49e8, 0x46e4, 0x2b41, /* entersub */ + 0x3e58, 0x0003, /* leavesub, leavesublv, leavewrite, leaveeval */ 0x02aa, 0x0003, /* argelem */ + 0x295c, 0x2838, 0x0003, /* argdefelem */ 0x00bc, 0x018f, /* caller */ 0x2675, /* nextstate, dbstate */ - 0x319c, 0x3c19, /* leave */ - 0x32fc, 0x3978, 0x120c, 0x3f25, /* enteriter */ - 0x3f25, /* iter */ - 0x319c, 0x0067, /* leaveloop */ - 0x4bbc, 0x0003, /* last, next, redo, dump, goto */ - 0x3b5c, 0x3a78, 0x2ab4, 0x29f0, 0x018f, /* open */ + 0x33dc, 0x3e59, /* leave */ + 0x353c, 0x3bb8, 0x120c, 0x4165, /* enteriter */ + 0x4165, /* iter */ + 0x33dc, 0x0067, /* leaveloop */ + 0x4dfc, 0x0003, /* last, next, redo, dump, goto */ + 0x3d9c, 0x3cb8, 0x2cf4, 0x2c30, 0x018f, /* open */ 0x2010, 0x226c, 0x2128, 0x1ee4, 0x0003, /* ftrread, ftrwrite, ftrexec, fteread, ftewrite, fteexec */ 0x2010, 0x226c, 0x2128, 0x0003, /* ftis, ftsize, ftmtime, ftatime, ftctime, ftrowned, fteowned, ftzero, ftsock, ftchr, ftblk, ftfile, ftdir, ftpipe, ftsuid, ftsgid, ftsvtx, ftlink, fttty, fttext, ftbinary */ - 0x4851, /* wait, getppid, time */ - 0x3cb4, 0x0fb0, 0x082c, 0x4928, 0x2584, 0x0003, /* entereval */ - 0x34bc, 0x0018, 0x14c4, 0x13e1, /* coreargs */ - 0x33ec, 0x00c7, /* avhvswitch */ - 0x32fc, 0x01fb, /* padrange */ - 0x32fc, 0x43f8, 0x04f6, 0x2ccc, 0x1ac8, 0x0067, /* refassign */ - 0x32fc, 0x43f8, 0x04f6, 0x2ccc, 0x1ac8, 0x0003, /* lvref */ - 0x32fd, /* lvrefslice */ + 0x4a91, /* wait, getppid, time */ + 0x3ef4, 0x0fb0, 0x082c, 0x4b68, 0x2584, 0x0003, /* entereval */ + 0x36fc, 0x0018, 0x14c4, 0x13e1, /* coreargs */ + 0x362c, 0x00c7, /* avhvswitch */ + 0x353c, 0x01fb, /* padrange */ + 0x353c, 0x4638, 0x04f6, 0x2f0c, 0x1ac8, 0x0067, /* refassign */ + 0x353c, 0x4638, 0x04f6, 0x2f0c, 0x1ac8, 0x0003, /* lvref */ + 0x353d, /* lvrefslice */ 0x1dfc, 0x0003, /* pushdefer */ }; @@ -3237,7 +3242,7 @@ EXTCONST U8 PL_op_private_valid[] = { [OP_LEAVESUBLV] = (OPpARG1_MASK|OPpREFCOUNTED), [OP_ARGCHECK] = (OPpARG1_MASK), [OP_ARGELEM] = (OPpARG1_MASK|OPpARGELEM_MASK), - [OP_ARGDEFELEM] = (OPpARG1_MASK), + [OP_ARGDEFELEM] = (OPpARG1_MASK|OPpARG_IF_FALSE|OPpARG_IF_UNDEF), [OP_CALLER] = (OPpARG4_MASK|OPpOFFBYONE), [OP_WARN] = (OPpARG4_MASK), [OP_DIE] = (OPpARG4_MASK), -- cgit v1.2.1