1 | #! perl # MANDATORY | 1 | #! perl # mandatory |
---|---|---|---|
2 | 2 | ||
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 | our %EXT_SETUP; | ||
8 | 10 | ||
9 | # paranoia function to overwrite a string-in-place | 11 | # paranoia function to overwrite a string-in-place |
10 | sub nuke_str { | 12 | sub nuke_str { |
11 | substr $_[0], 0, (length $_[0]), "x" x length $_[0] | 13 | substr $_[0], 0, (length $_[0]), "x" x length $_[0] |
12 | } | 14 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |