BEGIN {
use Exporter ();
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
- $VERSION = 0.11;
+ $VERSION = 0.12;
@ISA = qw (Exporter);
#Give a hoot don't pollute, do not export more than needed by default
@EXPORT = qw ();
push @must_exist, "fdt" if ($self->{read_fdt});
foreach my $ext (@must_exist) {
- croak "missing ",uc($ext)," file in ",$self->{isisdb} unless ($self->{$ext."_file"});
+ unless ($self->{$ext."_file"}) {
+ carp "missing ",uc($ext)," file in ",$self->{isisdb};
+ return;
+ }
}
print STDERR "## using files: ",join(" ",@isis_files),"\n" if ($self->{debug});