SF.net SVN: ledger-smb: [505] trunk/LedgerSMB/Sysconfig.pm

[..hidden..]

Revision: 505
          http://svn.sourceforge.net/ledger-smb/?rev=505&view=rev
Author:   einhverfr
Date:     2006-11-10 12:22:43 -0800 (Fri, 10 Nov 2006)

Log Message:
-----------
Fixing path munging to be cross-platform

Modified Paths:
--------------
    trunk/LedgerSMB/Sysconfig.pm

Modified: trunk/LedgerSMB/Sysconfig.pm
===================================================================
--- trunk/LedgerSMB/Sysconfig.pm	2006-11-10 18:01:08 UTC (rev 504)
+++ trunk/LedgerSMB/Sysconfig.pm	2006-11-10 20:22:43 UTC (rev 505)
@@ -7,6 +7,8 @@
 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 @@
 $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};


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.