stop loading sys_wait_h in Tr.cgi

2 files changed, 6 insertions, 2 deletions

diff --git a/CHANGES b/CHANGES
index 87fa17e..57d871e 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,6 @@
+* do not load :sys_wait_h from POSIX perl module since this seems to
+  be missing in some linux distros and we can do alright without I think.
+
 2008/6/13 -- released version 2.4.1
 
 * fixed js packaging error ...  s/VERSION/x/ was a bad idea
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";