aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Iurt/Config.pm4
-rw-r--r--lib/Iurt/File.pm4
2 files changed, 4 insertions, 4 deletions
diff --git a/lib/Iurt/Config.pm b/lib/Iurt/Config.pm
index 8426b03..a1a1e84 100644
--- a/lib/Iurt/Config.pm
+++ b/lib/Iurt/Config.pm
@@ -51,9 +51,9 @@ sub config_usage {
$Data::Dumper::Indent = 0;
$Data::Dumper::Terse = 1;
foreach my $k (sort keys %$config_usage) {
- print (" $k: $config_usage->{$k}{desc}\n\t\tdefault: ",
+ print " $k: $config_usage->{$k}{desc}\n\t\tdefault: ",
Data::Dumper->Dump([ $config_usage->{$k}{default} ]),
- ", current: ", Data::Dumper->Dump([ $config->{$k} ]), "\n");
+ ", current: ", Data::Dumper->Dump([ $config->{$k} ]), "\n";
}
print "\n\n";
}
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/");
}