diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-10 20:22:43 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-10 20:22:43 +0000 |
| commit | aac5a23249d8f73332bfcd949cde01715edd28d8 (patch) | |
| tree | 039442c0bfc4ee5c1c15abf60393911ea4a46a93 | |
| parent | 79fcd2e4f50f5087fd45422ca39f33e1fdce8f5b (diff) | |
Fixing path munging to be cross-platform
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@505 4979c152-3d1c-0410-bac9-87ea11338e46
| -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}; |