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

[..hidden..]

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

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

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

Modified: trunk/LedgerSMB/Sysconfig.pm
===================================================================
--- trunk/LedgerSMB/Sysconfig.pm	2007-10-18 00:45:37 UTC (rev 1782)
+++ trunk/LedgerSMB/Sysconfig.pm	2007-10-18 02:33:43 UTC (rev 1783)
@@ -92,8 +92,11 @@
 
 # ENV Paths
 for $var (qw(PATH PERL5LIB)) {
-    $ENV{$var} .= $pathsep . ( join $pathsep, @{ $config{environment}{$var} } )
-      if $config{environment}{$var};
+    if (ref $config{environment}{$var} eq 'ARRAY') {
+        $ENV{$var} .= $pathsep . ( join $pathsep, @{ $config{environment}{$var} } );
+    } elsif ($config{environment}{$var}) {
+        $ENV{$var} .= $pathsep . $config{environment}{$var};
+    }
 }
 
 # Application-specific paths


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