pass the -p/-path correctly to the import engine
authorTony Cook <tony@develop-help.com>
Fri, 17 Jul 2015 11:45:09 +0000 (21:45 +1000)
committerTony Cook <tony@develop-help.com>
Fri, 17 Jul 2015 11:45:09 +0000 (21:45 +1000)
site/util/bsexlsprod.pl

index f9cc73d..eead140 100644 (file)
@@ -7,6 +7,7 @@ use BSE::Cfg;
 use BSE::API qw(bse_init bse_cfg bse_make_product bse_encoding);
 use BSE::Importer;
 use Carp qw(confess);
 use BSE::API qw(bse_init bse_cfg bse_make_product bse_encoding);
 use BSE::Importer;
 use Carp qw(confess);
+use Config;
 
 bse_init("../cgi-bin");
 
 
 bse_init("../cgi-bin");
 
@@ -32,7 +33,7 @@ my $importer = BSE::Importer->new
   (
    cfg => $cfg,
    profile => $profile,
   (
    cfg => $cfg,
    profile => $profile,
-   file_path => \@file_path,
+   file_path => join($Config{pathsep}, @file_path),
    callback => $callback,
   );
 
    callback => $callback,
   );