9 |
BEGIN { |
BEGIN { |
10 |
use Exporter (); |
use Exporter (); |
11 |
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
12 |
$VERSION = 0.11; |
$VERSION = 0.12; |
13 |
@ISA = qw (Exporter); |
@ISA = qw (Exporter); |
14 |
#Give a hoot don't pollute, do not export more than needed by default |
#Give a hoot don't pollute, do not export more than needed by default |
15 |
@EXPORT = qw (); |
@EXPORT = qw (); |
147 |
push @must_exist, "fdt" if ($self->{read_fdt}); |
push @must_exist, "fdt" if ($self->{read_fdt}); |
148 |
|
|
149 |
foreach my $ext (@must_exist) { |
foreach my $ext (@must_exist) { |
150 |
croak "missing ",uc($ext)," file in ",$self->{isisdb} unless ($self->{$ext."_file"}); |
unless ($self->{$ext."_file"}) { |
151 |
|
carp "missing ",uc($ext)," file in ",$self->{isisdb}; |
152 |
|
return; |
153 |
|
} |
154 |
} |
} |
155 |
|
|
156 |
print STDERR "## using files: ",join(" ",@isis_files),"\n" if ($self->{debug}); |
print STDERR "## using files: ",join(" ",@isis_files),"\n" if ($self->{debug}); |