Close RT process when done
authorPaul D Weaver <pweaver@mit.edu>
Tue, 6 Mar 2012 19:36:21 +0000 (14:36 -0500)
committerPaul D Weaver <pweaver@mit.edu>
Tue, 6 Mar 2012 19:36:21 +0000 (14:36 -0500)
rt/BarnOwl/lib/BarnOwl/Module/RT.pm

index febf5846d781e506171c07b358269b4dae42979a..95b51a5ecc3af671d5f47d697b83343136804143 100644 (file)
@@ -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;
     }