This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.h: Add synonyms for some tr/// values
authorKarl Williamson <khw@cpan.org>
Mon, 4 Nov 2019 21:59:02 +0000 (14:59 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 7 Nov 2019 04:22:24 +0000 (21:22 -0700)
op.h

diff --git a/op.h b/op.h
index 3ce9890..3781960 100644 (file)
--- a/op.h
+++ b/op.h
@@ -1115,6 +1115,9 @@ C<sib> is non-null. For a higher-level interface, see C<L</op_sibling_splice>>.
 #  define TR_DELETE             (UV)-2
 #  define TR_R_EMPTY            (UV)-3  /* rhs (replacement) is empty */
 #  define TR_OOB                (UV)-4  /* Something that isn't one of the others */
+#  define TR_SPECIAL_HANDLING   TR_DELETE /* Can occupy same value */
+#  define TR_UNLISTED           TR_UNMAPPED /* A synonym whose name is clearer
+                                               at times */
 #endif
 #if defined(PERL_IN_OP_C) || defined(PERL_IN_TOKE_C)
 #define RANGE_INDICATOR  ILLEGAL_UTF8_BYTE