split [paths].libraries on the path sep
[bse.git] / 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;