aboutsummaryrefslogtreecommitdiffstats
path: root/ulri
diff options
context:
space:
mode:
Diffstat (limited to 'ulri')
-rwxr-xr-xulri7
1 files changed, 4 insertions, 3 deletions
diff --git a/ulri b/ulri
index 8c06126..d654e7a 100755
--- a/ulri
+++ b/ulri
@@ -494,6 +494,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 .= $_;
}
@@ -503,7 +504,7 @@ foreach my $prefix (keys %pkg_tree) {
opendir my $DP1, "$fail_dir/$prefix/log/";
foreach my $f1 (readdir $DP1) {
- if (not -d "$fail_dir/$prefix/log/$f1" or $f1 =~ m/^\./) {
+ if (! -d "$fail_dir/$prefix/log/$f1" or $f1 =~ m/^\./) {
next;
}
@@ -514,7 +515,7 @@ foreach my $prefix (keys %pkg_tree) {
}
$text .= "$fpath/log/$f1/$f2\n";
}
- closedir DP2;
+ closedir $DP2;
}
closedir $DP1;
@@ -551,7 +552,7 @@ foreach my $prefix (sort keys %pkg_tree) {
if ($user) {
$user = get_author_email($user) || $config->{packager};
} else {
- $user = $config->{packager}
+ $user = $config->{packager};
}
$user =~ s/([<>])/\\$1/g;