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