diff options
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/luasocket/test/testsrvr.lua')
-rw-r--r-- | Build/source/texk/web2c/luatexdir/luasocket/test/testsrvr.lua | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/luatexdir/luasocket/test/testsrvr.lua b/Build/source/texk/web2c/luatexdir/luasocket/test/testsrvr.lua index f1972c2273c..72b93abe66e 100644 --- a/Build/source/texk/web2c/luatexdir/luasocket/test/testsrvr.lua +++ b/Build/source/texk/web2c/luatexdir/luasocket/test/testsrvr.lua @@ -7,9 +7,14 @@ while 1 do print("server: waiting for client connection..."); control = assert(server:accept()); while 1 do - command = assert(control:receive()); + command, emsg = control:receive(); + if emsg == "closed" then + control:close() + break + end + assert(command, emsg) assert(control:send(ack)); print(command); - (loadstring(command))(); + ((loadstring or load)(command))(); end end |