diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-02-18 12:25:39 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-02-18 12:25:39 -0600 |
commit | aba3b022ac0a7c86d2311d9884439979d5f649bd (patch) | |
tree | 69a22b73c98926ce50c05bef0804a938eb68fdad | |
parent | e7b0afa2f7b8cd45bfea000f2d2238497ce0f982 (diff) | |
download | locale-pofilemanager-aba3b022ac0a7c86d2311d9884439979d5f649bd.tar.gz locale-pofilemanager-aba3b022ac0a7c86d2311d9884439979d5f649bd.zip |
minor fixups
-rw-r--r-- | lib/Locale/POFileManager.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Locale/POFileManager.pm b/lib/Locale/POFileManager.pm index 87c01ae..67a63d9 100644 --- a/lib/Locale/POFileManager.pm +++ b/lib/Locale/POFileManager.pm @@ -42,7 +42,7 @@ sub _build_files { my @files; for my $file ($dir->children) { - next unless $file->is_file; + next if $file->is_dir; next unless $file->stringify =~ /\.po$/; push @files, Locale::POFileManager::File->new(file => $file); } @@ -95,7 +95,7 @@ sub canonical_language_file { my $lang = $self->canonical_language; return $self->first_file(sub { - $_->file->language eq $lang; + $_->language eq $lang; }); } @@ -105,7 +105,7 @@ sub find_missing { my %ret; for my $file ($self->files) { - $ret{$file->language} = $file->find_missing_from($canon_file); + $ret{$file->language} = [$file->find_missing_from($canon_file)]; } return %ret; |