aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xulri9
1 files changed, 2 insertions, 7 deletions
diff --git a/ulri b/ulri
index c532639..b57c8c1 100755
--- a/ulri
+++ b/ulri
@@ -43,6 +43,7 @@ use File::Path 'make_path';
use File::Temp 'mktemp';
use Filesys::Df qw(df);
use Data::Dumper;
+use File::Slurp qw(read_file);
my %run;
my $program_name = 'ulri';
@@ -507,13 +508,7 @@ foreach my $prefix (keys %pkg_tree) {
$text .= "\nFailure details available in $fpath/log\n";
$text .= "Reason:\n";
- open my $FP, "$fail_dir/$prefix/log/status.log";
- local $_;
- while (<$FP>) {
- $text .= $_;
- }
- close $FP;
-
+ $text .= read_file("$fail_dir/$prefix/log/status.log");
$text .= "\nLog files generated:\n";
opendir my $DP1, "$fail_dir/$prefix/log/";