From 803a4d3d806ab6615bf814ddf4a29ae30b139482 Mon Sep 17 00:00:00 2001
From: Paul D Weaver <pweaver@mit.edu>
Date: Tue, 6 Mar 2012 14:36:21 -0500
Subject: [PATCH 1/1] Close RT process when done

---
 rt/BarnOwl/lib/BarnOwl/Module/RT.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/rt/BarnOwl/lib/BarnOwl/Module/RT.pm b/rt/BarnOwl/lib/BarnOwl/Module/RT.pm
index febf584..95b51a5 100644
--- 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;
     }
-- 
2.44.0