Commit 56dd0610 authored by Xavier Guimard's avatar Xavier Guimard

Use IO::Select for handler status (#1448)

parent 019f1e75
......@@ -42,7 +42,7 @@ sub getStatus {
my $statusOut = $class->tsv->{statusOut};
return $class->abort( $req, "$class: status page can not be displayed" )
unless ( $statusPipe and $statusOut );
print $statusPipe "STATUS" . ( $req->{env}->{QUERY_STRING} || '' ) . "\n";
print $statusPipe "STATUS " . ( $req->{env}->{QUERY_STRING} || '' ) . "\n";
my $buf;
while (<$statusOut>) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment