upvalue save alarm comparison

examples/lsayirc.lua

@@ -1,7 +1,7 @@
 require("socket")
 settings.nodaemon = true
---hostname = "irc.freenode.org"
+hostname = "irc.freenode.org"
-hostname = "127.0.0.1"
+--hostname = "127.0.0.1"
 port = 6667
 nick = "lbot01"
 chan = "##lfile01"

lsyncd.c

@@ -1610,6 +1610,12 @@ masterloop(lua_State *L)
 			return;
 		}
 		lua_pop(L, 2);
+
+		if (lua_gettop(L)) {
+			logstring("Error", "internal, stack is dirty.")
+			l_stackdump(L);
+			exit(-1); // ERRNO
+		}
 	}
 }
 

lsyncd.lua

@@ -2620,29 +2620,27 @@ function runner.getAlarm()
 	----
 	-- checks if current nearest alarm or a is earlier
 	--
-	local function checkAlarm(a) 
+	local function checkAlarm(alarm, a) 
 		if alarm == true or not a then
 			-- already immediate or no new alarm
-			return
+			return alarm
 		end
-		if not alarm then
+		-- returns the ealier time
-			alarm = a
+		if not alarm or a < alarm then
+			return a
 		else
-			-- the earlier time
+			return alarm
-			if a < alarm then
-				alarm = a
-			end
 		end
 	end
 
 	-- checks all syncs for their earliest alarm
 	for _, s in Syncs.iwalk() do
-		checkAlarm(s:getAlarm())
+		alarm = checkAlarm(alarm, s:getAlarm())
 	end
 	-- checks if a statusfile write has been delayed
-	checkAlarm(StatusFile.getAlarm())
+	alarm = checkAlarm(alarm, StatusFile.getAlarm())
 	-- checks for an userAlarm
-	checkAlarm(UserAlarms.getAlarm())
+	alarm = checkAlarm(alarm, UserAlarms.getAlarm())
 
 	log("Debug","getAlarm returns: ",alarm)
 	return alarm