diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-18 02:33:43 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-18 02:33:43 +0000 |
| commit | 190808523b88e832858c1734287e69feb413359d (patch) | |
| tree | 7a92ce764e6b9a706ffe23e4164ac1708d8e5e88 | |
| parent | 59a9c930a875cc618b7386314bcfc69adc4fe549 (diff) | |
Fixing 1814437
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1783 4979c152-3d1c-0410-bac9-87ea11338e46
| -rw-r--r-- | LedgerSMB/Sysconfig.pm | 7 |
1 files changed, 5 insertions, 2 deletions
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 |