… | … | ||
---|---|---|---|
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 |