START_EXTERN_C
-#define OP_NAME(o) ((o)->op_type == OP_CUSTOM ? custom_op_name(o) : \
- PL_op_name[(o)->op_type])
-#define OP_DESC(o) ((o)->op_type == OP_CUSTOM ? custom_op_desc(o) : \
- PL_op_desc[(o)->op_type])
-
#ifndef DOINIT
EXTCONST char* const PL_op_name[];
#else
"lock",
"once",
"custom",
+ "reach",
+ "rkeys",
+ "rvalues",
+ "transr",
};
#endif
"lock",
"once",
"unknown custom operator",
+ "each on reference",
+ "keys on reference",
+ "values on reference",
+ "transliteration (tr///)",
};
#endif
Perl_pp_qr,
Perl_pp_subst,
Perl_pp_substcont,
- Perl_pp_trans,
+ Perl_pp_trans, /* Perl_pp_trans */
Perl_pp_sassign,
Perl_pp_aassign,
Perl_pp_chop,
Perl_pp_lock,
Perl_pp_once,
Perl_unimplemented_op, /* Perl_pp_custom */
+ Perl_pp_rkeys, /* Perl_pp_reach */
+ Perl_pp_rkeys,
+ Perl_pp_rkeys, /* Perl_pp_rvalues */
+ Perl_pp_trans, /* Perl_pp_transr */
}
#endif
#ifdef PERL_PPADDR_INITED
Perl_ck_null, /* lslice */
Perl_ck_fun, /* anonlist */
Perl_ck_fun, /* anonhash */
- Perl_ck_fun, /* splice */
- Perl_ck_fun, /* push */
+ Perl_ck_push, /* splice */
+ Perl_ck_push, /* push */
Perl_ck_shift, /* pop */
Perl_ck_shift, /* shift */
- Perl_ck_fun, /* unshift */
+ Perl_ck_push, /* unshift */
Perl_ck_sort, /* sort */
Perl_ck_fun, /* reverse */
Perl_ck_grep, /* grepstart */
Perl_ck_rfun, /* lock */
Perl_ck_null, /* once */
Perl_ck_null, /* custom */
+ Perl_ck_each, /* reach */
+ Perl_ck_each, /* rkeys */
+ Perl_ck_each, /* rvalues */
+ Perl_ck_match, /* transr */
}
#endif
#ifdef PERL_CHECK_INITED
0x00007b04, /* lock */
0x00000300, /* once */
0x00000000, /* custom */
+ 0x00001b00, /* reach */
+ 0x00001b08, /* rkeys */
+ 0x00001b08, /* rvalues */
+ 0x00001804, /* transr */
};
#endif