From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 24 Jun 2001 01:40:53 +0000 (+0000)
Subject: Display $ENV{CYGWIN} in perlbug if set (like #10875 for perl -V).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=27414c22f9f9e053d924f2fe0a81c39c62ec27e0;p=p5sagit%2Fp5-mst-13.2.git

Display $ENV{CYGWIN} in perlbug if set (like #10875 for perl -V).

p4raw-id: //depot/perl@10877
---

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index c4289f8..201b3f5 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -618,7 +618,7 @@ EOF
     my @env =
         qw(PATH LD_LIBRARY_PATH LANG PERL_BADLANG SHELL HOME LOGDIR LANGUAGE);
     push @env, $Config{ldlibpthname} if $Config{ldlibpthname} ne '';
-    push @env, grep /^(?:PERL|LC_|LANG)/, keys %ENV;
+    push @env, grep /^(?:PERL|LC_|LANG|CYGWIN)/, keys %ENV;
     my %env;
     @env{@env} = @env;
     for my $env (sort keys %env) {