148 |
push @must_exist, "fdt" if ($self->{read_fdt}); |
push @must_exist, "fdt" if ($self->{read_fdt}); |
149 |
|
|
150 |
foreach my $ext (@must_exist) { |
foreach my $ext (@must_exist) { |
151 |
confess "missing ",uc($ext)," file in ",$self->{isisdb} unless ($self->{$ext."_file"}); |
croak "missing ",uc($ext)," file in ",$self->{isisdb} unless ($self->{$ext."_file"}); |
152 |
} |
} |
153 |
|
|
154 |
print STDERR "## using files: ",join(" ",@isis_files),"\n" if ($self->{debug}); |
print STDERR "## using files: ",join(" ",@isis_files),"\n" if ($self->{debug}); |
224 |
sub read_cnt { |
sub read_cnt { |
225 |
my $self = shift; |
my $self = shift; |
226 |
|
|
227 |
confess "missing CNT file in ",$self->{isisdb} unless ($self->{cnt_file}); |
croak "missing CNT file in ",$self->{isisdb} unless ($self->{cnt_file}); |
228 |
|
|
229 |
# Get the index information from $db.CNT |
# Get the index information from $db.CNT |
230 |
|
|