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
"reach",
"rkeys",
"rvalues",
+ "transr",
};
#endif
"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_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_each, /* reach */
Perl_ck_each, /* rkeys */
Perl_ck_each, /* rvalues */
+ Perl_ck_match, /* transr */
}
#endif
#ifdef PERL_CHECK_INITED
0x00001b00, /* reach */
0x00001b08, /* rkeys */
0x00001b08, /* rvalues */
+ 0x00001804, /* transr */
};
#endif