From f28283f29111269f6de963411f80748692186153 Mon Sep 17 00:00:00 2001
From: Tobi Oetiker <tobi@oetiker.ch>
Date: Wed, 18 Jun 2008 13:52:42 +0000
Subject: stop loading sys_wait_h in Tr.cgi

---
 qooxdoo/source/perl/Qooxdoo/Services/Tr.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'qooxdoo/source/perl/Qooxdoo/Services')

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";
-- 
cgit v1.2.3-24-g4f1b