From aac5a23249d8f73332bfcd949cde01715edd28d8 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Fri, 10 Nov 2006 20:22:43 +0000 Subject: 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 --- LedgerSMB/Sysconfig.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'LedgerSMB/Sysconfig.pm') 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}; -- cgit v1.2.3