diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-25 16:24:55 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-25 16:24:55 +0000 |
| commit | 8876aa855575c76fe5c85df0966371a59a0bbc8e (patch) | |
| tree | e60627b918bca1ca032d87852bc8b97000f25ed2 | |
| parent | ca30992f0a6aba514ace6cc49000c6f5f9a9948b (diff) | |
| download | perl-8876aa855575c76fe5c85df0966371a59a0bbc8e.tar.gz | |
Fix a typo in #3725.
p4raw-id: //depot/cfgperl@3743
| -rw-r--r-- | utils/perlbug.PL | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index c25eec01c3..78d3f422b7 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -530,9 +530,11 @@ EOF my @env = qw(PATH LD_LIBRARY_PATH LANG PERL_BADLANG SHELL HOME LOGDIR LANGUAGE); push @env, $Config{ldlibpthname} if $Config{ldlibpthname} ne ''; - for my $env (sort @env, - grep /^(?:PERL|LC_)/, keys %ENV) - ) { + push @env, grep /^(?:PERL|LC_|LANG)/, keys %ENV; + my %env; + @env{@env} = @env; + for my $env (sort keys %env) { + { print OUT " $env", exists $ENV{$env} ? "=$ENV{$env}" : ' (unset)', "\n"; |