always call close() in lua when you're done with a file.

scripts/eressea/autoseed.lua

@@ -39,13 +39,17 @@ local function read_players()
 --    return {{ email = "noreply@mailinator.com", race = "dwarf",  lang = "de" }}
     local players =  {}
     local input = io.open("newfactions", "r")
-    while input do
+    if input then
         local str = input:read("*line")
+        while str do
             if str==nil then break end
             local email, race, lang = str:match("([^ ]*) ([^ ]*) ([^ ]*)")
             if email and string.char(string.byte(email, 1))~='#' then
                 table.insert(players, { race = race, lang = lang, email = email })
             end
+            str = input:read("*line")
+        end
+        input:close()
     end
     return players
 end

scripts/eressea/cursed.lua

@@ -23,6 +23,7 @@ function cursed.init()
     if f then
         print("found cursed.txt")
         curse(f)
+        f:close()
     end
 end
 

scripts/tools/build-e3.lua

@@ -124,6 +124,7 @@ end
 
 function seed()
   local input = io.open(config.basepath .. "/parteien.txt")
+  if input then
       for f in factions() do
         if f.race=="vampunicorn" then
           local str = input:read("*line")
@@ -149,6 +150,8 @@ function seed()
           end
         end
       end
+      input:close()
+  end
   for r in regions() do
     r:set_resource("sapling", r:get_resource("tree")/4)
     r:set_resource("seed", 0)

scripts/tools/build-e4.lua

@@ -27,12 +27,13 @@ else
 end
 
 local f=assert(io.open("factions", "r"))
-line=f:read("*line")
-players = {}
-emails = {}
-patrons = {}
-nplayers = 0
-while line~=nil do
+if f then
+    line=f:read("*line")
+    players = {}
+    emails = {}
+    patrons = {}
+    nplayers = 0
+    while line~=nil do
         fields = {}
         line:gsub("([^\t]*)\t*", function(c) table.insert(fields, c) end)
         line=f:read("*line")
@@ -46,8 +47,9 @@ while line~=nil do
         race=string.gsub(fields[4], "/.*", ''):lower()
         players[email] = { ['lang'] = lang, ['race'] = race }
         nplayers = nplayers + 1
+    end
+    f:close()
 end
-
 for k, r in ipairs(homes) do
     print(k, r)
 end

scripts/tools/build.lua

@@ -27,12 +27,13 @@ else
 end
 
 local f=assert(io.open("factions", "r"))
-line=f:read("*line")
-players = {}
-emails = {}
-patrons = {}
-nplayers = 0
-while line~=nil do
+if f then
+    line=f:read("*line")
+    players = {}
+    emails = {}
+    patrons = {}
+    nplayers = 0
+    while line~=nil do
         fields = {}
         line:gsub("([^\t]*)\t*", function(c) table.insert(fields, c) end)
         line=f:read("*line")
@@ -46,8 +47,9 @@ while line~=nil do
         race=string.gsub(fields[4], "/.*", ''):lower()
         players[email] = { ['lang'] = lang, ['race'] = race }
         nplayers = nplayers + 1
+    end
+    f:close()
 end
-
 for k, r in ipairs(homes) do
     print(k, r)
 end