… | … | ||
---|---|---|---|
3 | # login handling | 3 | # login handling |
4 | 4 | ||
5 | use Fcntl; | 5 | use Fcntl; |
6 | use Coro::AIO; | 6 | use Coro::AIO; |
7 | use List::Util qw(min max); | 7 | use List::Util qw(min max); |
8 | |||
9 | my $PLAYERDIR = sprintf "%s/%s", cf::localdir, cf::playerdir; | ||
10 | 8 | ||
11 | # paranoia function to overwrite a string-in-place | 9 | # paranoia function to overwrite a string-in-place |
12 | sub nuke_str { | 10 | sub nuke_str { |
13 | substr $_[0], 0, (length $_[0]), "x" x length $_[0] | 11 | substr $_[0], 0, (length $_[0]), "x" x length $_[0] |
14 | } | 12 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |