diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-02-19 14:18:20 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-02-19 16:09:43 -0600 |
| commit | b899fd319a9b33107b968fa88cf982653b1bdb0a (patch) | |
| tree | bc139f70574fa0fbd356ba3333a2a1a23ead0fa4 | |
| parent | 4197ea13384d7a071ca2010324ff03c10188d622 (diff) | |
| download | locale-pofilemanager-b899fd319a9b33107b968fa88cf982653b1bdb0a.tar.gz locale-pofilemanager-b899fd319a9b33107b968fa88cf982653b1bdb0a.zip | |
entry_for should return a scalar
| -rw-r--r-- | lib/Locale/POFileManager/File.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Locale/POFileManager/File.pm b/lib/Locale/POFileManager/File.pm index 839cde2..fd1575b 100644 --- a/lib/Locale/POFileManager/File.pm +++ b/lib/Locale/POFileManager/File.pm @@ -3,6 +3,7 @@ use Moose; use MooseX::Types::Path::Class qw(File); use List::MoreUtils qw(any); +use List::Util qw(first); use Locale::PO; use Scalar::Util qw(reftype); @@ -42,7 +43,7 @@ sub _build_entries { sub entry_for { my $self = shift; my ($msgid) = @_; - return grep { $_->msgid eq $msgid } $self->entries; + return first { $_->msgid eq '"' . $msgid . '"' } $self->entries; } sub add_entry { |