diff options
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 { |