--- utils/perlbug.PL | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 2fe3c59..184c016 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -460,7 +460,7 @@ EOF # Try and guess return address my $guess; - $guess = $ENV{'REPLY-TO'} || $ENV{'REPLYTO'} || ''; + $guess = $ENV{'REPLY-TO'} || $ENV{'REPLYTO'} || $ENV{'EMAIL'} || ''; if ($Is_MacOS) { require Mac::InternetConfig; $guess = $Mac::InternetConfig::InternetConfig{ -- 1.7.0.rc0.140.gfbe7Thread Previous | Thread Next