Close RT process when done

diff --git a/rt/BarnOwl/lib/BarnOwl/Module/RT.pm b/rt/BarnOwl/lib/BarnOwl/Module/RT.pm
index febf5846d781e506171c07b358269b4dae42979a..95b51a5ecc3af671d5f47d697b83343136804143 100644 (file)
--- a/rt/BarnOwl/lib/BarnOwl/Module/RT.pm
+++ b/rt/BarnOwl/lib/BarnOwl/Module/RT.pm
@@ -107,12 +107,15 @@ sub run_rt_command{
     my @args = ("athrun","tooltime","rt");
     push (@args, @_);
     local(*IN, *OUT, *ERR);
-    open3(*IN, *OUT, *ERR, @args) || die("RT threw $!");
+    my $pid = open3(*IN, *OUT, *ERR, @args) || die("RT threw $!");
     close(*IN); 
     my $out = do { local $/; <OUT> };
     close(*OUT);
     $out .= do { local $/; <ERR> };
     close(*ERR);
+
+    waitpid( $pid, 0 );
+
     if (($out =~ tr/\n//) eq 1){
        return $out;
     }