diff --git a/perl-xCAT/xCAT/MacMap.pm b/perl-xCAT/xCAT/MacMap.pm index f6f939cbd..24a4e790f 100644 --- a/perl-xCAT/xCAT/MacMap.pm +++ b/perl-xCAT/xCAT/MacMap.pm @@ -23,7 +23,12 @@ use Sys::Syslog; #use Data::Dumper; use POSIX qw/WNOHANG/; -use SNMP; +my $have_snmp = 1; +eval "use SNMP"; +if ($@) { + $have_snmp = 0; +} + my %cisco_vlans; #Special hash structure to reflect discovered VLANS on Cisco equip #use IF-MIB (1.3.6.1.2.1.2) for all switches diff --git a/xCAT-server/lib/xcat/plugins/pdu.pm b/xCAT-server/lib/xcat/plugins/pdu.pm index 9f400a3c6..a99459616 100644 --- a/xCAT-server/lib/xcat/plugins/pdu.pm +++ b/xCAT-server/lib/xcat/plugins/pdu.pm @@ -37,6 +37,11 @@ use Class::Struct; use XML::Simple; use Storable qw(dclone); use SNMP; +my $have_snmp = 1; +eval "use SNMP"; +if ($@) { + $have_snmp = 0; +} use Expect; use Net::Ping; diff --git a/xCAT-server/lib/xcat/plugins/switchdiscover.pm b/xCAT-server/lib/xcat/plugins/switchdiscover.pm index 342c55ff0..257fe6bae 100644 --- a/xCAT-server/lib/xcat/plugins/switchdiscover.pm +++ b/xCAT-server/lib/xcat/plugins/switchdiscover.pm @@ -21,7 +21,11 @@ no strict; use Data::Dumper; use Socket; use Expect; -use SNMP; +my $have_snmp = 1; +eval "use SNMP"; +if ($@) { + $have_snmp = 0; +} use xCAT::data::switchinfo; #global variables for this module diff --git a/xCAT-server/xCAT-server.spec b/xCAT-server/xCAT-server.spec index c6dca6c64..0869f822f 100644 --- a/xCAT-server/xCAT-server.spec +++ b/xCAT-server/xCAT-server.spec @@ -47,7 +47,7 @@ Obsoletes: atftp-xcat %endif %if "%{dist}" == ".el8" -Requires: perl-Time-HiRes perl-Sys-Syslog perl-Text-Balanced perl-DB_File perl-XML-LibXML perl-Expect net-snmp-perl perl-Net-DNS perl-Net-Ping perl-XML-LibXML-Simple +Requires: perl-Time-HiRes perl-Sys-Syslog perl-Text-Balanced perl-DB_File perl-XML-LibXML perl-Expect perl-Net-DNS perl-Net-Ping perl-XML-LibXML-Simple %endif # The aix rpm cmd forces us to do this outside of ifos type stmts