diff options
| author | Alex Vandiver <alex@chmrr.net> | 2010-04-16 23:54:11 -0400 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2010-04-17 10:10:07 +0200 |
| commit | c8a80d16cf4dde2a23dbe6b03778a8766e0f3f5f (patch) | |
| tree | f2fb49e6d638835cbc6e9c7c88f62978e7898903 /utils | |
| parent | 4f1623e5e854b85ee815e79fd4cf7f5c0c8cccb5 (diff) | |
| download | perl-c8a80d16cf4dde2a23dbe6b03778a8766e0f3f5f.tar.gz | |
Also guess $ENV{EMAIL}, if present, as the originating address
Signed-off-by: H.Merijn Brand <h.m.brand@xs4all.nl>
Diffstat (limited to 'utils')
| -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 2fe3c598c1..184c016b42 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{ |