aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-01-16 11:13:37 +0000
committerThierry Vignaud <tv@mandriva.org>2008-01-16 11:13:37 +0000
commit3106530ae688a1e1c17f4b50561e9a80997fef30 (patch)
tree7d16339e81b5f83e9cb608678bdbc01be3aa8b73 /lib
parente885660757dc4603096978accc73b793fac6385e (diff)
downloadiurt-3106530ae688a1e1c17f4b50561e9a80997fef30.tar
iurt-3106530ae688a1e1c17f4b50561e9a80997fef30.tar.gz
iurt-3106530ae688a1e1c17f4b50561e9a80997fef30.tar.bz2
iurt-3106530ae688a1e1c17f4b50561e9a80997fef30.tar.xz
iurt-3106530ae688a1e1c17f4b50561e9a80997fef30.zip
perl_checker cleanups
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 cc5077e..ba5f718 100644
--- a/lib/Iurt/File.pm
+++ b/lib/Iurt/File.pm
@@ -18,7 +18,7 @@ Return true.
=cut
sub check_upload_tree {
- my ($_run, $todo, $func, $o_post) = @_;
+ my ($_run, $todo, $func, $post) = @_;
# Squash double slashes for cosmetics
$todo =~ s!/+!/!g;
@@ -49,11 +49,11 @@ sub check_upload_tree {
}
}
# cleaning
- if ($o_post) {
+ if ($post) {
opendir my $submedia_dir, "$todo/$f/$m/$s";
foreach my $r (readdir $submedia_dir) {
$r =~ /^\.{1,2}$/ and next;
- $o_post->($todo, $f, $m, $s, $r);
+ $post->($todo, $f, $m, $s, $r);
}
}
} else {