fix filename for all_oids.gz

This commit is contained in:
Oliver Gorwits
2022-08-07 23:19:08 +01:00
parent bd21797557
commit 6ea1a22499

View File

@@ -18,7 +18,7 @@ register_worker({ phase => 'main' }, sub {
debug "loadmibs - loading netdisco-mibs object cache";
my $home = (setting('mibhome') || catdir(($ENV{NETDISCO_HOME} || $ENV{HOME}), 'netdisco-mibs'));
my $infile = catfile($home, qw(EXTRAS reports all_oids));
my $infile = catfile($home, qw(EXTRAS reports all_oids.gz));
my $outfh = File::Temp->new();
my $outfile = $outfh->filename;
gunzip $infile => $outfile or die "gunzip failed: $GunzipError\n";