исправил удалением "|| version()" из функции "sendMasterLogin"
Код: Выделить всё
sub sendMasterLogin {
my ($self, $username, $password, $master_version, $version) = @_;
my $msg = pack('v V a24 a24 C', hex($masterServer->{masterLogin_packet}) || 0x0064, $version || version(), $username, $password, $master_version);
$self->sendToServer($msg);
debug "Sent sendMasterLogin\n", "sendPacket", 2;
}