diff options
Diffstat (limited to 'ext/B/B/Deparse.pm')
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index f88b0fbd63..21fdd15114 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -3238,7 +3238,7 @@ sub collapse { sub tr_decode_byte { my($table, $flags) = @_; my(@table) = unpack("s*", $table); - splice @table, 0x100, 1; # Just flags presence of element 0x101 + splice @table, 0x100, 1; # Number of subsequent elements my($c, $tr, @from, @to, @delfrom, $delhyphen); if ($table[ord "-"] != -1 and $table[ord("-") - 1] == -1 || $table[ord("-") + 1] == -1) |