move decode_utf8 closer to reason for it

Filenames need to be decoded, as File::Find does not provide them in
decoded form, but other callers of verify_src_file will be using utf8.
master
Joey Hess 2010-04-17 16:08:37 -04:00
parent 2fc342b048
commit f78e6798aa
1 changed files with 3 additions and 3 deletions

View File

@ -282,7 +282,7 @@ sub srcdir_check () {
}
sub verify_src_file ($$) {
my $file=decode_utf8(shift);
my $file=shift;
my $dir=shift;
return if -l $file || -d _;
@ -310,7 +310,7 @@ sub find_src_files () {
find({
no_chdir => 1,
wanted => sub {
my ($file, $page) = verify_src_file($_, $config{srcdir});
my ($file, $page) = verify_src_file(decode_utf8($_), $config{srcdir});
if (defined $file) {
push @files, $file;
if ($pages{$page}) {
@ -324,7 +324,7 @@ sub find_src_files () {
find({
no_chdir => 1,
wanted => sub {
my ($file, $page) = verify_src_file($_, $dir);
my ($file, $page) = verify_src_file(decode_utf8($_), $dir);
if (defined $file) {
# avoid underlaydir override
# attacks; see security.mdwn