Fix error only trigerred under win32

Fix new SNMP::MibSupport feature for netdiscovery & netinventory under win32
fusioninventory · Nov 24, 2017 · 067de28 · 067de28
1 parent 9338302
commit 067de28
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/lib/FusionInventory/Agent/SNMP/MibSupport.pm b/lib/FusionInventory/Agent/SNMP/MibSupport.pm
@@ -6,6 +6,7 @@ use warnings;
 # Extracted from SNMPv2-MIB standard
 use constant    sysORID => '.1.3.6.1.2.1.1.9.1.2';
 
+use English qw(-no_match_vars);
 use File::Glob;
 use UNIVERSAL::require;
 
@@ -33,6 +34,10 @@ sub new {
     my ($sub_modules_path) = $INC{module2file(__PACKAGE__)} =~ /(.*)\.pm/;
     my %available_mib_support = ();
     foreach my $file (File::Glob::bsd_glob("$sub_modules_path/*.pm")) {
+        if ($OSNAME eq 'MSWin32') {
+            $file =~ s{\\}{/}g;
+            $sub_modules_path =~ s{\\}{/}g;
+        }
         next unless $file =~ m{$sub_modules_path/(\S+)\.pm$};
 
         my $module = __PACKAGE__ . "::" . $1;