From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 25 Jul 1999 16:24:55 +0000 (+0000)
Subject: Fix a typo in #3725.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8876aa855575c76fe5c85df0966371a59a0bbc8e;p=p5sagit%2Fp5-mst-13.2.git

Fix a typo in #3725.

p4raw-id: //depot/cfgperl@3743
---

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index c25eec0..78d3f42 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";