diff options
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 { |