split [paths].libraries on the path sep
authorTony Cook <tony@develop-help.com>
Sat, 18 Apr 2020 03:07:25 +0000 (13:07 +1000)
committerTony Cook <tony@develop-help.com>
Sat, 18 Apr 2020 03:07:25 +0000 (13:07 +1000)
to allow more than one path to be added

site/cgi-bin/modules/BSE/CfgInfo.pm

index f13d02a..c996731 100644 (file)
@@ -1,11 +1,12 @@
 package BSE::CfgInfo;
 use strict;
+use Config;
 
-our $VERSION = "1.005";
+our $VERSION = "1.006";
 
 use vars qw(@ISA @EXPORT_OK);
-require Exporter;
-@ISA = qw(Exporter);
+use Exporter qw(import);
+
 @EXPORT_OK = qw(custom_class admin_base_url cfg_image_dir cfg_image_uri cfg_dist_image_uri cfg_data_dir cfg_scalecache_dir cfg_scalecache_uri credit_card_class product_options bse_default_country load_class);
 
 =head1 NAME
@@ -299,7 +300,7 @@ sub _do_local_inc {
 
   my $local_inc = $cfg->entryIfVar('paths', 'libraries');
 
-  unshift @INC, $local_inc if $local_inc;
+  unshift @INC, split /\Q$Config{path_sep}/, $local_inc if $local_inc;
 }
 
 1;