SF.net SVN: ledger-smb: [1784] branches/1.2/LedgerSMB/Sysconfig.pm

[..hidden..]

Revision: 1784
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1784&view=rev
Author:   tetragon
Date:     2007-10-17 19:35:07 -0700 (Wed, 17 Oct 2007)

Log Message:
-----------
Fixing 1814437

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Sysconfig.pm

Modified: branches/1.2/LedgerSMB/Sysconfig.pm
===================================================================
--- branches/1.2/LedgerSMB/Sysconfig.pm	2007-10-18 02:33:43 UTC (rev 1783)
+++ branches/1.2/LedgerSMB/Sysconfig.pm	2007-10-18 02:35:07 UTC (rev 1784)
@@ -87,10 +87,16 @@
 $session  = $config{''}{session}  if $config{''}{session};
 $latex    = $config{''}{latex}    if $config{''}{latex};
 
-$ENV{PATH} .= $pathsep . ( join $pathsep, @{ $config{environment}{PATH} } )
-  if $config{environment}{PATH};
-$ENV{PERL5LIB} .= ":" . ( join ':', @{ $config{environment}{PERL5LIB} } )
-  if $config{environment}{PERL5LIB};
+if (ref $config{environment}{PATH} eq 'ARRAY') {
+    $ENV{PATH} .= $pathsep . ( join $pathsep, @{ $config{environment}{PATH} } );
+} elsif ($config{environment}{PATH}) {
+    $ENV{PATH} .= $pathsep . $config{environment}{PATH};
+}
+if (ref $config{environment}{PERL5LIB} eq 'ARRAY') {
+    $ENV{PERL5LIB} .= ":" . ( join ':', @{ $config{environment}{PERL5LIB} } );
+} elsif ($config{environment}{PERL5LIB}) {
+    $ENV{PERL5LIB} .= ":" . $config{environment}{PERL5LIB};
+}
 
 %printer = %{ $config{printers} } if $config{printers};
 


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