diff options
Diffstat (limited to 't/lib/Test/Sietima/MailStore.pm')
| -rw-r--r-- | t/lib/Test/Sietima/MailStore.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/lib/Test/Sietima/MailStore.pm b/t/lib/Test/Sietima/MailStore.pm index 78b76f3..ff4064c 100644 --- a/t/lib/Test/Sietima/MailStore.pm +++ b/t/lib/Test/Sietima/MailStore.pm @@ -34,7 +34,7 @@ sub retrieve_by_tags { for my $m ($self->_mails->@*) { next unless all { $m->{tags}{$_} } @tags; push @ret, { - %{$m}{id}, + $m->%{id}, mail => Email::MIME->new($m->{mail}) }; } |