aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-24 15:37:39 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-24 15:37:39 +0000
commit6f89345e4d1e0dbb93062f9279d204338f6f98bd (patch)
treefbdb71848c3d71420e65b3b0bda4757312f5c740 /lib
parent7b3ed72840ce704ea352ab991c719b19fa6e9b79 (diff)
downloadiurt-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')
-rw-r--r--lib/Iurt/File.pm6
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 {