From 6977bb19f0c75c066748f56b429304c97894632a Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 3 Apr 2014 16:02:34 +0200 Subject: [PATCH] wrap whole request in eval so we don't die on RFID errors --- scripts/RFID-JSONP-server.pl | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/scripts/RFID-JSONP-server.pl b/scripts/RFID-JSONP-server.pl index 6867f81..5baff85 100755 --- a/scripts/RFID-JSONP-server.pl +++ b/scripts/RFID-JSONP-server.pl @@ -91,6 +91,9 @@ sub http_server { print "Server $0 ready at $server_url\n"; while (my $client = $server->accept()) { + + eval { # don't die inside here! + $client->autoflush(1); my $request = <$client>; @@ -195,6 +198,12 @@ sub http_server { print $client "HTTP/1.0 500 No method\r\n\r\n"; } close $client; + + }; # end of eval + if ( $@ ) { + warn "ERROR: $@"; + } + } die "server died"; -- 2.20.1