diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 01:40:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 01:40:53 +0000 |
| commit | 27414c22f9f9e053d924f2fe0a81c39c62ec27e0 (patch) | |
| tree | cf25eaf773a0471712a0253683b1f52026287714 | |
| parent | 4f233aa44037bb348e757bece6f05ebd4838c4da (diff) | |
| download | perl-27414c22f9f9e053d924f2fe0a81c39c62ec27e0.tar.gz | |
Display $ENV{CYGWIN} in perlbug if set (like #10875 for perl -V).
p4raw-id: //depot/perl@10877
| -rw-r--r-- | utils/perlbug.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index c4289f8d3a..201b3f5d10 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) { |