diff options
Diffstat (limited to 'LedgerSMB')
| -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 |