diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-04-19 11:27:16 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-04-19 12:52:52 +0200 |
| commit | 4edab9788a284886731f41a1bb522ba5d814a142 (patch) | |
| tree | 50b4023bdd4d039917d6d3e286c16adfe2c9606e /lib | |
| parent | 434931c792ecc5cbf29aa605289c4d7cf43c511b (diff) | |
| download | iurt-4edab9788a284886731f41a1bb522ba5d814a142.tar iurt-4edab9788a284886731f41a1bb522ba5d814a142.tar.gz iurt-4edab9788a284886731f41a1bb522ba5d814a142.tar.bz2 iurt-4edab9788a284886731f41a1bb522ba5d814a142.tar.xz iurt-4edab9788a284886731f41a1bb522ba5d814a142.zip | |
perl_checker cleanups
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Iurt/Config.pm | 4 | ||||
| -rw-r--r-- | lib/Iurt/File.pm | 4 |
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/"); } |