| … | … | ||
|---|---|---|---|
| 557 | update_stats_window ({}); | 557 | update_stats_window ({}); |
| 558 | 558 | ||
| 559 | $tgw | 559 | $tgw |
| 560 | } | 560 | } |
| 561 | 561 | ||
| 562 | sub formsep { | 562 | sub formsep($) { |
| 563 | reverse join ",", grep length, split /(...)/, reverse $_[0] * 1 | 563 | scalar reverse join ",", unpack "(A3)*", reverse $_[0] * 1 |
| 564 | } | 564 | } |
| 565 | 565 | ||
| 566 | sub update_stats_window { | 566 | sub update_stats_window { |
| 567 | my ($stats) = @_; | 567 | my ($stats) = @_; |
| 568 | 568 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |