diff options
| author | Jan D <jan.djarv@mbox200.swipnet.se> | 1997-06-11 12:00:00 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
| commit | e860bb06317b0d55a48f2c5511900c366344d898 (patch) | |
| tree | b20d9f6c724e01cf4d8b6a28f1e0d6bd091667f3 /utils | |
| parent | 32ea9a2adc40909908baaba9bf4553d2fe1ecabb (diff) | |
| download | perl-e860bb06317b0d55a48f2c5511900c366344d898.tar.gz | |
PATCH: bug in perlbug w.r.t. environment variables
Here is patch for the problem, this adds sorting all of the environment
(I see little point in sorting just some).
p5p-msgid: 199705191857.VAA09154@alpha.hut.fi
Signed-off-by: Jarkko Hietaniemi <jhi@iki.fi>
Diffstat (limited to 'utils')
| -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"; |