From 190808523b88e832858c1734287e69feb413359d Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 18 Oct 2007 02:33:43 +0000
Subject: Fixing 1814437

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1783 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Sysconfig.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'LedgerSMB/Sysconfig.pm')

diff --git a/LedgerSMB/Sysconfig.pm b/LedgerSMB/Sysconfig.pm
index 10d1b3b9..f7bb8de2 100644
--- a/LedgerSMB/Sysconfig.pm
+++ b/LedgerSMB/Sysconfig.pm
@@ -92,8 +92,11 @@ for $var (
 
 # 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
-- 
cgit v1.2.3