-sub _init_environment {
- my %key_map = ( lib => { name => 'PERL5LIB', append_path => 1 },
- path => { name => 'PATH', append_path => 1 },
- );
- my $cfg = $::lx_office_conf{environment} || {};
-
- while (my ($key, $value) = each %{ $cfg }) {
- next unless $value;
-
- my $info = $key_map{$key} || {};
- $key = $info->{name} || $key;
-
- if ($info->{append_path}) {
- $value = ':' . $value unless $value =~ m/^:/ || !$ENV{$key};
- $value = $ENV{$key} . $value;
- }
-
- $ENV{$key} = $value;
- }
-}
-