diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-24 15:37:39 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-24 15:37:39 +0000 |
| commit | 6f89345e4d1e0dbb93062f9279d204338f6f98bd (patch) | |
| tree | fbdb71848c3d71420e65b3b0bda4757312f5c740 /lib/Iurt/File.pm | |
| parent | 7b3ed72840ce704ea352ab991c719b19fa6e9b79 (diff) | |
| download | iurt-6f89345e4d1e0dbb93062f9279d204338f6f98bd.tar iurt-6f89345e4d1e0dbb93062f9279d204338f6f98bd.tar.gz iurt-6f89345e4d1e0dbb93062f9279d204338f6f98bd.tar.bz2 iurt-6f89345e4d1e0dbb93062f9279d204338f6f98bd.tar.xz iurt-6f89345e4d1e0dbb93062f9279d204338f6f98bd.zip | |
(check_upload_tree) tag 'post' parameter as optional
(better perl_checker SNR)
Diffstat (limited to 'lib/Iurt/File.pm')
| -rw-r--r-- | lib/Iurt/File.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Iurt/File.pm b/lib/Iurt/File.pm index 91feb49..42943de 100644 --- a/lib/Iurt/File.pm +++ b/lib/Iurt/File.pm @@ -18,7 +18,7 @@ Return true. =cut sub check_upload_tree { - my ($todo, $func, $post) = @_; + my ($todo, $func, $o_post) = @_; # Squash double slashes for cosmetics $todo =~ s!/+!/!g; @@ -49,11 +49,11 @@ sub check_upload_tree { } } # cleaning - if ($post) { + if ($o_post) { opendir my $submedia_dir, "$todo/$f/$m/$s"; foreach my $r (readdir $submedia_dir) { $r =~ /^\.{1,2}$/ and next; - $post->($todo, $f, $m, $s, $r); + $o_post->($todo, $f, $m, $s, $r); } } } else { |