135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix filename for all_oids.gz

Browse Source
This commit is contained in:
Oliver Gorwits
2022-08-07 23:19:08 +01:00
parent bd21797557
commit 6ea1a22499
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/App/Netdisco/Worker/Plugin/LoadMIBs.pm
View File

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