From e5d3fa5a2c281e7687b3003aa9c7c255a44ea960 Mon Sep 17 00:00:00 2001
From: tmu <tmu>
Date: Fri, 11 Jun 2004 10:37:41 +0000
Subject: null check $key at _db_set()

---
 fml/lib/Mail/Message/DB.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'fml')

diff --git a/fml/lib/Mail/Message/DB.pm b/fml/lib/Mail/Message/DB.pm
index d0fafd77..fb854324 100644
--- a/fml/lib/Mail/Message/DB.pm
+++ b/fml/lib/Mail/Message/DB.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: DB.pm,v 1.18 2004/03/28 12:13:52 fukachan Exp $
+# $FML: DB.pm,v 1.19 2004/03/28 13:01:28 fukachan Exp $
 #
 
 package Mail::Message::DB;
@@ -21,7 +21,7 @@ use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD
 use Carp;
 use File::Spec;
 
-my $version = q$FML: DB.pm,v 1.18 2004/03/28 12:13:52 fukachan Exp $;
+my $version = q$FML: DB.pm,v 1.19 2004/03/28 13:01:28 fukachan Exp $;
 if ($version =~ /,v\s+([\d\.]+)\s+/) { $version = $1;}
 
 # special value
@@ -1125,7 +1125,7 @@ sub _db_set
 {
     my ($self, $db, $table, $key, $value) = @_;
 
-    if (defined $value && $value) {
+    if (defined $value && $value && defined $key && $key) {
 	unless ($self->{ _db_opened }->{ "_$table" }) {
 	    $self->db_open( { table => $table } );
 	}
-- 
cgit v1.2.1