summaryrefslogtreecommitdiffstats
path: root/qooxdoo/source/perl
diff options
context:
space:
mode:
authorTobi Oetiker <tobi@oetiker.ch>2008-06-18 15:52:42 +0200
committerTobi Oetiker <tobi@oetiker.ch>2008-06-18 15:52:42 +0200
commitf28283f29111269f6de963411f80748692186153 (patch)
treee9b38f49c39296627ecf0a15608cd2d4067c40d8 /qooxdoo/source/perl
parent184fb3f6fc4f71cef2a417d117f2fc0c1c4d979a (diff)
downloadsmokeping-f28283f29111269f6de963411f80748692186153.tar.gz
smokeping-f28283f29111269f6de963411f80748692186153.tar.xz
stop loading sys_wait_h in Tr.cgi
Diffstat (limited to 'qooxdoo/source/perl')
-rw-r--r--qooxdoo/source/perl/Qooxdoo/Services/Tr.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm b/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm
index f3a5b47..ddfa796 100644
--- a/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm
+++ b/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm
@@ -1,6 +1,6 @@
package Qooxdoo::Services::Tr;
use strict;
-use POSIX qw(setsid :sys_wait_h);
+use POSIX qw(setsid);
use Time::HiRes qw(usleep);
use Socket;
sub GetAccessibility {
@@ -103,7 +103,8 @@ sub method_run_tr
$size = -s $fh;
# make sure we reap any zombi instances of tr
# this is especially important when running with speedy of fastcgi
- waitpid($handle,WNOHANG);
+ # 1 = WNOHANG
+ waitpid($handle,1);
$again = kill(0, $handle);
usleep(1000*300) if $rounds;
# print STDERR "$again, $handle, $size, $point\n";