diff options
Diffstat (limited to 'lib/Iurt/File.pm')
| -rw-r--r-- | lib/Iurt/File.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Iurt/File.pm b/lib/Iurt/File.pm index 618aab2..0d09a79 100644 --- a/lib/Iurt/File.pm +++ b/lib/Iurt/File.pm @@ -16,7 +16,7 @@ sub check_upload_tree { # Squash double slashes for cosmetics $todo =~ s!/+!/!g; - opendir (my $dir, $todo); + opendir(my $dir, $todo); plog('INFO', "check dir: $todo"); foreach my $f (readdir $dir) { @@ -84,7 +84,7 @@ sub cleanup_failed_build { if (-d "$done_dir/$prefix") { make_path("$fail_dir/$prefix"); - for my $file (glob "$done_dir/$prefix/*") { + foreach my $file (glob "$done_dir/$prefix/*") { plog('DEBUG', "moving $file to $fail_dir/$prefix/"); move($file, "$fail_dir/$prefix/"); } |