diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-04-27 08:11:24 +0200 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-04-27 08:11:24 +0200 |
commit | 268a18ac54c2f5acaf6b681ca88be0be2850da7e (patch) | |
tree | 75ee1866669471ee7c4fd4a185d76fa5d58b692f /lib | |
parent | f35cc0fa8c06df0aa218995eb7b057db52830bfb (diff) | |
download | iurt-268a18ac54c2f5acaf6b681ca88be0be2850da7e.tar iurt-268a18ac54c2f5acaf6b681ca88be0be2850da7e.tar.gz iurt-268a18ac54c2f5acaf6b681ca88be0be2850da7e.tar.bz2 iurt-268a18ac54c2f5acaf6b681ca88be0be2850da7e.tar.xz iurt-268a18ac54c2f5acaf6b681ca88be0be2850da7e.zip |
ulri: sort file names in mail
Diffstat (limited to 'lib')
-rwxr-xr-x | lib/Iurt/Ulri.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Iurt/Ulri.pm b/lib/Iurt/Ulri.pm index c9ec44e..4cac3bb 100755 --- a/lib/Iurt/Ulri.pm +++ b/lib/Iurt/Ulri.pm @@ -161,11 +161,11 @@ sub warn_about_failure { $text .= "\nLog files generated:\n"; opendir my $DP1, "$fail_dir/$prefix/log/"; - foreach my $f1 (sort(readdir($DP1))) { + foreach my $f1 (readdir($DP1)) { next if ! -d "$fail_dir/$prefix/log/$f1" || $f1 =~ m/^\./; opendir my $DP2, "$fail_dir/$prefix/log/$f1"; - foreach my $f2 (readdir $DP2) { + foreach my $f2 (sort(readdir $DP2)) { next if $f2 =~ m/^\./; $text .= "$fpath/log/$f1/$f2\n"; } |