Emesinae::Message: Die in lookup_id if id doesn't exist.

diff --git a/Emesinae/Message.pm b/Emesinae/Message.pm
index f445bb89fa0e900f7fdf1b74d4687319d04ebfd4..5103d065245ab157fb862127ddf9e4908ea47188 100644 (file)
--- a/Emesinae/Message.pm
+++ b/Emesinae/Message.pm
@@ -24,8 +24,12 @@ sub lookup_id {
 
     $sth->execute($id);
 
+    my $row = $sth->fetch;
+
+    die "lookup_id $id" unless defined $row;
+
     my ( $msgid, $present, $inserted, $msgtype, $date, $from, $to, $cc, $subj )
-      = @{ $sth->fetch };
+      = @{$row};
 
     $sth->finish;