diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-10-08 13:43:54 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-10-08 13:43:54 +0000 |
| commit | a2c173186705228a9c11370097774b481b1b39fd (patch) | |
| tree | 1871f41ba17916aff86ca1488f6ed8c04ee245e1 /lib/Iurt/File.pm | |
| parent | 8facfdd7bd2488e688167484d3b451d6a548da6a (diff) | |
| download | iurt-a2c173186705228a9c11370097774b481b1b39fd.tar iurt-a2c173186705228a9c11370097774b481b1b39fd.tar.gz iurt-a2c173186705228a9c11370097774b481b1b39fd.tar.bz2 iurt-a2c173186705228a9c11370097774b481b1b39fd.tar.xz iurt-a2c173186705228a9c11370097774b481b1b39fd.zip | |
(check_upload_tree) make obvious to perl_checker this is an optional argument
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 ba5f718..cc5077e 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, $post) = @_; + my ($_run, $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 { |