From b899fd319a9b33107b968fa88cf982653b1bdb0a Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 19 Feb 2010 14:18:20 -0600
Subject: entry_for should return a scalar

---
 lib/Locale/POFileManager/File.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 {
-- 
cgit v1.2.3-54-g00ecf