diff options
Diffstat (limited to 'qooxdoo/source/perl')
-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"; |