From bf93b153e4e7e0ca52bce15df75c6460891ecaf9 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Tue, 30 Dec 2003 03:52:07 +0000
Subject: get() return null string if the value is undefined

---
 fml/lib/FML/Header/MessageID.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/fml/lib/FML/Header/MessageID.pm b/fml/lib/FML/Header/MessageID.pm
index 8c61a0c2..379e921c 100644
--- a/fml/lib/FML/Header/MessageID.pm
+++ b/fml/lib/FML/Header/MessageID.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: MessageID.pm,v 1.15 2003/09/19 13:30:34 tmu Exp $
+# $FML: MessageID.pm,v 1.16 2003/11/11 10:26:55 tmu Exp $
 #
 
 package FML::Header::MessageID;
@@ -110,6 +110,7 @@ sub db_close
 =head2 get($key)
 
 get value for the key $key in message-id database.
+return '' if not found nor defined.
 
 =head2 set($key, $value)
 
@@ -127,12 +128,12 @@ sub get
     my ($self, $key) = @_;
     my $db = $self->{ _db };
 
-    # XXX-TODO: what should we do if undefined ?
     if (defined $db) {
-	return $db->{ $key };
+	return( $db->{ $key } || '' );
+    }
+    else {
+	return '';
     }
-
-    undef;
 }
 
 
-- 
cgit v1.2.1