diff options
| author | Robin Barker <RMBarker@cpan.org> | 1998-06-23 17:38:06 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-28 17:17:35 +0000 |
| commit | c0830f08d1ac3314ba24d3d631beb837c7748610 (patch) | |
| tree | e54f52013db342d220c5854f827aeb022e81b54d /utils | |
| parent | 6a518fbc8aa927fbef3f9c74478f46ca5dfe8af0 (diff) | |
| download | perl-c0830f08d1ac3314ba24d3d631beb837c7748610.tar.gz | |
hand apply whitespace mutiliated patch
Message-Id: <5389.9806231538@tempest.cise.npl.co.uk>
Subject: PATCH [perl5.004_68] perlbug.PL; was Re: Error message for Errno_pm.PL
p4raw-id: //depot/perl@1228
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perlbug.PL | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 0a53240df9..8f2c679f7c 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -250,6 +250,10 @@ EOF $me = $Is_MSWin32 ? $ENV{'USERNAME'} : $^O eq 'os2' ? $ENV{'USER'} || $ENV{'LOGNAME'} : eval { getpwuid($<) }; # May be missing + + $from = $::Config{'cf_email'} + if !$from && $::Config{'cf_email'} && $::Config{'cf_by'} && $me && + ($me eq $::Config{'cf_by'}); } # sub Init sub Query { |