"isa",
"cmpchain_and",
"cmpchain_dup",
- "freed",
+ "entertrycatch",
+ "leavetrycatch",
+ "poptry",
+ "catch",
+ "freed",
};
#endif
"derived class test",
"comparison chaining",
"comparand shuffling",
- "freed op",
+ "try {block}",
+ "try {block} exit",
+ "pop try",
+ "catch {} block",
+ "freed op",
};
#endif
Perl_pp_isa,
Perl_pp_cmpchain_and,
Perl_pp_cmpchain_dup,
+ Perl_pp_entertrycatch,
+ Perl_pp_leavetrycatch,
+ Perl_pp_poptry,
+ Perl_pp_catch,
}
#endif
;
Perl_ck_isa, /* isa */
Perl_ck_null, /* cmpchain_and */
Perl_ck_null, /* cmpchain_dup */
+ Perl_ck_trycatch, /* entertrycatch */
+ Perl_ck_null, /* leavetrycatch */
+ Perl_ck_null, /* poptry */
+ Perl_ck_null, /* catch */
}
#endif
;
0x00000204, /* isa */
0x00000300, /* cmpchain_and */
0x00000100, /* cmpchain_dup */
+ 0x00000300, /* entertrycatch */
+ 0x00000400, /* leavetrycatch */
+ 0x00000400, /* poptry */
+ 0x00000300, /* catch */
};
#endif
12, /* isa */
0, /* cmpchain_and */
0, /* cmpchain_dup */
+ 0, /* entertrycatch */
+ -1, /* leavetrycatch */
+ -1, /* poptry */
+ 0, /* catch */
};
*/
EXTCONST U16 PL_op_private_bitdefs[] = {
- 0x0003, /* scalar, prototype, refgen, srefgen, readline, regcmaybe, regcreset, regcomp, substcont, chop, schop, defined, undef, study, preinc, i_preinc, predec, i_predec, postinc, i_postinc, postdec, i_postdec, negate, i_negate, not, complement, 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 */
+ 0x0003, /* scalar, prototype, refgen, srefgen, readline, regcmaybe, regcreset, regcomp, substcont, chop, schop, defined, undef, study, preinc, i_preinc, predec, i_predec, postinc, i_postinc, postdec, i_postdec, negate, i_negate, not, complement, 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 */
0x2fdc, 0x41b9, /* pushmark */
0x00bd, /* wantarray, runcv */
0x0438, 0x1a50, 0x426c, 0x3d28, 0x3505, /* const */
/* ISA */ (OPpARG2_MASK),
/* CMPCHAIN_AND */ (OPpARG1_MASK),
/* CMPCHAIN_DUP */ (OPpARG1_MASK),
+ /* ENTERTRYCATCH */ (OPpARG1_MASK),
+ /* LEAVETRYCATCH */ (0),
+ /* POPTRY */ (0),
+ /* CATCH */ (OPpARG1_MASK),
};