From: Jan D <jan.djarv@mbox200.swipnet.se>
Date: Wed, 11 Jun 1997 00:00:00 +0000 (+1200)
Subject: PATCH: bug in perlbug w.r.t. environment variables
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e860bb06317b0d55a48f2c5511900c366344d898;p=p5sagit%2Fp5-mst-13.2.git

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>
---

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 23acde4..00fad31 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";