diff options
| -rw-r--r-- | utils/perlbug.PL | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 23acde403e..00fad311d2 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -481,10 +481,11 @@ EOF --- Environment for perl $]: EOF - for my $env (qw(PATH LD_LIBRARY_PATH), - sort grep { /^(?:PERL|LC_)/ } keys %ENV, - qw(LANG PERL_BADLANG - SHELL HOME LOGDIR)) { + for my $env (sort + (qw(PATH LD_LIBRARY_PATH + LANG PERL_BADLANG + SHELL HOME LOGDIR), + grep { /^(?:PERL|LC_)/ } keys %ENV)) { print OUT " $env", exists $ENV{$env} ? "=$ENV{$env}" : ' (unset)', "\n"; |