summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--LedgerSMB/Sysconfig.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/LedgerSMB/Sysconfig.pm b/LedgerSMB/Sysconfig.pm
index f4445e2f..4edf9c5f 100644
--- a/LedgerSMB/Sysconfig.pm
+++ b/LedgerSMB/Sysconfig.pm
@@ -7,6 +7,8 @@ package LedgerSMB::Sysconfig;
use Config::Std;
use DBI qw(:sql_types);
+# For Win32, change $pathsep to ';';
+$pathsep=':';
$session='DB';
$logging=0; # No logging on by default
@@ -68,7 +70,7 @@ $language = $config{''}{language} if $config{''}{language};
$session = $config{''}{session} if $config{''}{session};
$latex = $config{''}{latex} if $config{''}{latex};
-$ENV{PATH} .= ":".(join ':', @{$config{environment}{PATH}}) if
+$ENV{PATH} .= $pathsep.(join $pathsep, @{$config{environment}{PATH}}) if
$config{environment}{PATH};
$ENV{PERL5LIB} .= ":".(join ':', @{$config{environment}{PERL5LIB}}) if
$config{environment}{PERL5LIB};