fix(perl): update players count on round start (#14)

Author: Rushaway

scripts/HLstats_EventHandlers.plib

@@ -2007,6 +2007,12 @@ sub doEvent_WorldAction
 	my $rcmd = $g_servers{$s_addr}->{broadcasting_command};
 	my ($action) = @_;
 	my $desc;
+
+	# Always update player count on round start
+	if ($action eq "Round_Start") {
+		$g_servers{$s_addr}->updatePlayerCount();
+	}
+
 	my $act_players = $g_servers{$s_addr}->{num_trackable_players};
 	my $min_players = $g_servers{$s_addr}->{minplayers};
 
@@ -3246,4 +3252,4 @@ sub doEvent_ApiReqestPlayerInfo
 	return $desc . $playerstr . " api_request playerinfo via HLStatsX API module";
 }
 
-1;
+1;