This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
doop.c: Change out-of-bounds value
[perl5.git] / op.h
diff --git a/op.h b/op.h
index 2d5f81e..cc9f1af 100644 (file)
--- a/op.h
+++ b/op.h
@@ -1113,6 +1113,7 @@ C<sib> is non-null. For a higher-level interface, see C<L</op_sibling_splice>>.
 #  define TR_UNMAPPED           (UV)-1
 #  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 */
 #endif
 #if defined(PERL_IN_OP_C) || defined(PERL_IN_TOKE_C)
 #define RANGE_INDICATOR  ILLEGAL_UTF8_BYTE