--- deliantra/server/ext/login.ext 2007/06/10 03:16:54 1.52 +++ deliantra/server/ext/login.ext 2007/06/11 21:38:13 1.53 @@ -1,4 +1,4 @@ -#! perl # MANDATORY +#! perl # mandatory # login handling @@ -6,6 +6,8 @@ use Coro::AIO; use List::Util qw(min max); +our %EXT_SETUP; + # paranoia function to overwrite a string-in-place sub nuke_str { substr $_[0], 0, (length $_[0]), "x" x length $_[0]