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
authorKarl Williamson <khw@cpan.org>
Mon, 18 Nov 2019 21:13:35 +0000 (14:13 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 18 Nov 2019 21:39:42 +0000 (14:39 -0700)
The line was a relict of debugging.  I don't know if this could lead to
a bug or not, but it certainly did not belong.

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))),