modify mandatory variable check

1 files changed, 7 insertions, 3 deletions

diff --git a/fml/lib/Mail/ThreadTrack.pm b/fml/lib/Mail/ThreadTrack.pm
index 74f98a72..c5b26833 100755
--- a/fml/lib/Mail/ThreadTrack.pm
+++ b/fml/lib/Mail/ThreadTrack.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: ThreadTrack.pm,v 1.6 2001/11/03 07:44:04 fukachan Exp $
+# $FML: ThreadTrack.pm,v 1.7 2001/11/03 10:02:00 fukachan Exp $
 #
 
 package Mail::ThreadTrack;
@@ -82,13 +82,17 @@ sub new
 	db_type => 'AnyDBM_File',
     };
 
-    for my $key (qw(ml_name spool_dir article_id db_base_dir)) {
+    my @keys = qw(ml_name spool_dir article_id db_base_dir);
+    my %must = ('ml_name' => 1, 'spool_dir' => 1, 'db_base_dir' => 1);
+
+    for my $key (@keys) {
 	if (defined $args->{ $key }) {
 	    $config->{ $key } = $args->{ $key };
 	}
-	else {
+	elsif (defined $must{ $key }) {
 	    croak("specify $key");
 	}
+
     }
     my $ml_name = $config->{ ml_name };