diff options
| -rw-r--r-- | LedgerSMB/Sysconfig.pm | 4 |
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}; |