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] / doop.c
diff --git a/doop.c b/doop.c
index 60f2b35..0fa9103 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -216,7 +216,7 @@ S_do_trans_complex(pTHX_ SV * const sv, const OPtrans_map * const tbl)
         /* What the mapping of the previous character was to.  If the new
          * character has the same mapping, it is squashed from the output (but
          * still is included in the count) */
-        UV pch = 0xfeedface;
+        UV pch = TR_OOB;
 
        if (grows)
             /* Allow for worst-case expansion: Each input byte can become 2.
@@ -261,7 +261,7 @@ S_do_trans_complex(pTHX_ SV * const sv, const OPtrans_map * const tbl)
             }
 
             s += len;
-            pch = 0xfeedface;
+            pch = TR_OOB;
         }
 
        if (grows) {