This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Fix subtraction that should be an add
authorKarl Williamson <public@khwilliamson.com>
Mon, 15 Nov 2010 22:52:59 +0000 (15:52 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 16 Nov 2010 00:18:39 +0000 (16:18 -0800)
Fortunately, this bug has not affected the output of mktables so far.

lib/unicore/mktables

index 73dea61..b8cbd51 100644 (file)
@@ -3677,7 +3677,7 @@ sub trace { return main::trace(@_); }
             $extends_above = ($j+1 < $range_list_size
                             && $r->[$j+1]->start == $end +1
                             && $r->[$j+1]->standard_form eq $standard_form
-                            && $r->[$j-1]->type == $type);
+                            && $r->[$j+1]->type == $type);
         }
         if ($extends_below && $extends_above) { # Adds to both
             $splice_start--;     # start replace at element below