135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix ignore Net-SNMP configuration file snmp.conf option in t/test_class.pl and t/util/test_class_mocked.pl

Browse Source
This commit is contained in:
Eric A. Miller
2013-10-15 22:26:51 -04:00
parent 4b1533e925
commit 074f2e7c8f
2 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
t/test_class.pl
View File

@@ -73,8 +73,8 @@ if ( $ignore && !defined $mibdirs ) {
pod2usage(1); pod2usage(1);
} }
if ($ignore) { local $ENV{'SNMPCONFPATH'} = $EMPTY } local $ENV{'SNMPCONFPATH'} = $EMPTY if $ignore;
if ($ignore) { local $ENV{'MIBDIRS'} = "$mibdirs" } local $ENV{'MIBDIRS'} = "$mibdirs" if $ignore;
if ( defined $mibdirs ) { if ( defined $mibdirs ) {
SNMP::addMibDirs($mibdirs); SNMP::addMibDirs($mibdirs);
@@ -104,7 +104,6 @@ my $dev = $class->new(
'AutoSpecify' => 0, 'AutoSpecify' => 0,
'AutoVerBack' => 0, 'AutoVerBack' => 0,
'Debug' => $debug, 'Debug' => $debug,
'MibDirs' => $mibdirs,
'Version' => $ver, 'Version' => $ver,
'DestHost' => $device, 'DestHost' => $device,
'Community' => $comm, 'Community' => $comm,

5
t/util/test_class_mocked.pl
View File

@@ -71,8 +71,8 @@ if ( $ignore && !defined $mibdirs ) {
pod2usage(1); pod2usage(1);
} }
if ($ignore) { local $ENV{'SNMPCONFPATH'} = $EMPTY } local $ENV{'SNMPCONFPATH'} = $EMPTY if $ignore;
if ($ignore) { local $ENV{'MIBDIRS'} = "$mibdirs" } local $ENV{'MIBDIRS'} = "$mibdirs" if $ignore;
if ( defined $mibdirs ) { if ( defined $mibdirs ) {
SNMP::addMibDirs($mibdirs); SNMP::addMibDirs($mibdirs);
@@ -99,7 +99,6 @@ my $dev = $class->new(
'AutoSpecify' => 0, 'AutoSpecify' => 0,
'BulkWalk' => 0, 'BulkWalk' => 0,
'Debug' => $debug, 'Debug' => $debug,
'MibDirs' => $mibdirs,
'Session' => $mocked, 'Session' => $mocked,
) or die "\n"; ) or die "\n";