--- trunk2/lib/WebPAC.pm 2004/09/13 14:39:16 434 +++ trunk2/lib/WebPAC.pm 2004/09/13 14:55:13 436 @@ -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;