diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-01-16 11:13:37 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-01-16 11:13:37 +0000 |
| commit | 3106530ae688a1e1c17f4b50561e9a80997fef30 (patch) | |
| tree | 7d16339e81b5f83e9cb608678bdbc01be3aa8b73 /lib/Iurt/File.pm | |
| parent | e885660757dc4603096978accc73b793fac6385e (diff) | |
| download | iurt-3106530ae688a1e1c17f4b50561e9a80997fef30.tar iurt-3106530ae688a1e1c17f4b50561e9a80997fef30.tar.gz iurt-3106530ae688a1e1c17f4b50561e9a80997fef30.tar.bz2 iurt-3106530ae688a1e1c17f4b50561e9a80997fef30.tar.xz iurt-3106530ae688a1e1c17f4b50561e9a80997fef30.zip | |
perl_checker cleanups
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 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 { |