diff options
| author | Tobi Oetiker <tobi@oetiker.ch> | 2008-06-18 15:52:42 +0200 |
|---|---|---|
| committer | Tobi Oetiker <tobi@oetiker.ch> | 2008-06-18 15:52:42 +0200 |
| commit | f28283f29111269f6de963411f80748692186153 (patch) | |
| tree | e9b38f49c39296627ecf0a15608cd2d4067c40d8 /qooxdoo/source/perl/Qooxdoo/Services/Tr.pm | |
| parent | 184fb3f6fc4f71cef2a417d117f2fc0c1c4d979a (diff) | |
| download | smokeping-f28283f29111269f6de963411f80748692186153.tar.gz smokeping-f28283f29111269f6de963411f80748692186153.tar.xz | |
stop loading sys_wait_h in Tr.cgi
Diffstat (limited to 'qooxdoo/source/perl/Qooxdoo/Services/Tr.pm')
| -rw-r--r-- | qooxdoo/source/perl/Qooxdoo/Services/Tr.pm | 5 |
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"; |