Fix segfault default tip
authorunC0Rr
Mon, 17 Feb 2025 16:38:24 +0100
changeset 16119 278533359a93
parent 16117 cb472e3d0dd4
Fix segfault
hedgewars/uLand.pas
--- a/hedgewars/uLand.pas	Mon Feb 10 09:52:32 2025 -0500
+++ b/hedgewars/uLand.pas	Mon Feb 17 16:38:24 2025 +0100
@@ -356,7 +356,6 @@
 end;
 
 function SelectTemplate: shortstring;
-var l: LongInt;
 begin
     SelectTemplate:= '';
     if (cReducedQuality and rqLowRes) <> 0 then
@@ -365,7 +364,7 @@
         begin
         if (cTemplateFilter = 0) and (cMapGen <> mgMaze) then
             begin
-            l:= getRandom(5) + 1;
+            cTemplateFilter:= getRandom(5) + 1;
             end
             else getRandom(1);