added timestamp and moved Module::Refresh->refresh into server

[pxelator] / lib / PXElator / httpd.pm

diff --git a/lib/PXElator/httpd.pm b/lib/PXElator/httpd.pm
index 0c4c30e..d0d5af2 100644 (file)
--- a/lib/PXElator/httpd.pm
+++ b/lib/PXElator/httpd.pm
@@ -17,7 +17,6 @@ use Carp qw/confess/;
 use File::Slurp;
 #use JSON;
 use IO::Socket::INET;
-use Module::Refresh;
 
 our $pids;
 $pids = { httpd => $$ } unless defined $pids; # keep pids on refresh
@@ -257,14 +256,12 @@ sub start {
        start_stop 'screen';
        start_stop 'kvm';
 
-       while (my $client = $server->accept()) {
-               $client->autoflush(1);
+       while (1) {
+               my $client = $server->accept() || next; # ALARM trickle us
                my $request = <$client>;
 
                warn "request $request\n" if $debug;
 
-               Module::Refresh->refresh;
-
                if ($request =~ m{^GET (/.*) HTTP/1.[01]}) {
                        my $path = $1;
                        my $param;