fixed yieldable socket.protect in etc/dispatch.lua

etc/dispatch.lua

@@ -5,6 +5,7 @@
 -----------------------------------------------------------------------------
 local base = _G
 local table = require("table")
+local string = require("string")
 local socket = require("socket")
 local coroutine = require("coroutine")
 module("dispatch")
@@ -43,26 +44,32 @@ end
 -----------------------------------------------------------------------------
 -- Mega hack. Don't try to do this at home.
 -----------------------------------------------------------------------------
--- we can't yield across calls to protect, so we rewrite it with coxpcall
+-- we can't yield across calls to protect on Lua 5.1, so we rewrite it with
+-- coroutines
 -- make sure you don't require any module that uses socket.protect before
 -- loading our hack
-function socket.protect(f)
+if string.sub(base._VERSION, -3) == "5.1" then
-  return function(...)
+  local function _protect(co, status, ...)
-    local co = coroutine.create(f)
-    while true do
-      local results = {coroutine.resume(co, ...)}
-      local status = table.remove(results, 1)
     if not status then
-        if base.type(results[1]) == 'table' then
+      local msg = ...
-          return nil, results[1][1]
+      if base.type(msg) == 'table' then
-        else base.error(results[1]) end
+        return nil, msg[1]
+      else
+        base.error(msg, 0)
+      end
     end
     if coroutine.status(co) == "suspended" then
-        arg = {coroutine.yield(base.unpack(results))}
+      return _protect(co, coroutine.resume(co, coroutine.yield(...)))
     else
-        return base.unpack(results)
+      return ...
     end
   end
+
+  function socket.protect(f)
+    return function(...)
+      local co = coroutine.create(f)
+      return _protect(co, coroutine.resume(co, ...))
+    end
   end
 end