aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Iurt/Process.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Iurt/Process.pm')
-rw-r--r--lib/Iurt/Process.pm6
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/Iurt/Process.pm b/lib/Iurt/Process.pm
index f0a3372..e799376 100644
--- a/lib/Iurt/Process.pm
+++ b/lib/Iurt/Process.pm
@@ -3,6 +3,7 @@ package Iurt::Process;
use strict;
use base qw(Exporter);
use List::MoreUtils qw(any);
+use MDK::Common qw(cat_);
use Filesys::Df qw(df);
use Iurt::Mail qw(sendmail);
use Iurt::Config qw(dump_cache_par);
@@ -260,10 +261,7 @@ sub perform_command {
# Keep the run first on the harddrive so that one can check the
# command status tailing it
- if ($opt{log} && open my $log, $logfile) {
- local $/;
- $output = <$log>;
- }
+ $output = cat_($logfile) if $opt{log};
$fulloutput .= $output;
if (ref $opt{callback}) {