--- trunk2/lib/WebPAC.pm	2004/09/12 20:31:34	431
+++ trunk2/lib/WebPAC.pm	2004/09/13 14:55:13	436
@@ -123,7 +123,7 @@
 			$log->debug("removed '$db_file' from last run");
 		}
 
-		use DBM::Deep;
+		require DBM::Deep;
 
 		my $db = new DBM::Deep $db_file;
 
@@ -185,6 +185,8 @@
 	$log->logcroak("need filename") if (! $arg->{'filename'});
 	my $code_page = $arg->{'code_page'} || '852';
 
+	$log->logdie("can't find database ",$arg->{'filename'}) unless (glob($arg->{'filename'}.'.*'));
+
 	# store data in object
 	$self->{'isis_filename'} = $arg->{'filename'};
 	$self->{'isis_code_page'} = $code_page;