socket send 抛出超时错误。

我在两个服务器之间有一个代理客户端。主服务器S1位于互联网上。代理客户端和第二个服务器S2位于同一个内部网络中。我有以下代码（为了简单起见，部分代码被省略），它负责将来自S2的数据“原样”转发到S1：

fsctimeout = 0.01

function send_data(sock, data, i, l)
    local p,err,q = sock:send(data, i, l)
    if(err == "timeout" and q ~= l) then
        fsctimeout = fsctimeout * 2
        sock:settimeout(fsctimeout)
        send_data(sock, data, q + 1, l)
        fsctimeout = fsctimeout / 2
        sock:settimeout(fsctimeout)
    end
end

while not e do

rect, _, st = socket.select({csc, fsc}, nil, .01) -- csc是S1，fsc是S2 sockets。

    if(rect[fsc] ~= nil and csc ~= nil) then
        local data, err, part = fsc:receive(8192)
        if(data ~= nil) then
            send_data(csc, data, 1, data:len())
            totalBytesFromFP = totalBytesFromFP + data:len()
        end
        if(part ~= nil) then
            send_data(csc, part, 1, part:len())
            totalBytesFromFP = totalBytesFromFP + part:len()
        end
    end
 end

我编写了send_data 函数，以便如果发送超时，它将使套接字超时加倍并重试。但现在有时程序在send_data函数内部卡住，无法成功发送数据。在这里我该怎么办？（我正在尝试发送1MB文件进行测试，对于小量数据，似乎不会出现此问题。）