This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: Rmv redundant line in tr/// table
[perl5.git] / op.c
diff --git a/op.c b/op.c
index bc48a0b..9f919ba 100644 (file)
--- a/op.c
+++ b/op.c
@@ -6900,7 +6900,6 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
         0,
         0x80,
         (32 * (1UL << (    UTF_ACCUMULATION_SHIFT))),
-        (32 * (1UL << (    UTF_ACCUMULATION_SHIFT))),
         (16 * (1UL << (2 * UTF_ACCUMULATION_SHIFT))),
         ( 8 * (1UL << (3 * UTF_ACCUMULATION_SHIFT))),
         ( 4 * (1UL << (4 * UTF_ACCUMULATION_SHIFT))),