diff options
| author | Jesse Vincent <jesse@bestpractical.com> | 2011-01-02 10:50:21 +0800 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2011-01-02 10:53:54 +0800 |
| commit | e4ef33329eb648489bad5296e9673c409f5577f9 (patch) | |
| tree | e783c47bf77100229fcd000d4b64d7c8cac5b85f /utils/perlbug.PL | |
| parent | a3c0a861363628704a1e3c926e1641b8d227f3ab (diff) | |
| download | perl-e4ef33329eb648489bad5296e9673c409f5577f9.tar.gz | |
perlbug did not previously generate a From: header. While some MTAs do
the "right" thing and insert a valid "From:", not all of them do,
potentially resulting in dropped mail.
Diffstat (limited to 'utils/perlbug.PL')
| -rw-r--r-- | utils/perlbug.PL | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 38f2b3b389..8caef3cf19 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -291,7 +291,7 @@ sub Init { $address = $::opt_a || ($::opt_t ? $testaddress : $thanks ? $thanksaddress : $bugaddress); - # Users address, used in message and in Reply-To header + # Users address, used in message and in From and Reply-To headers $from = $::opt_r || ""; # Include verbose configuration information @@ -1089,6 +1089,7 @@ sub _message_headers { $headers{'Cc'} = $cc if ($cc); $headers{'Message-Id'} = $messageid if ($messageid); $headers{'Reply-To'} = $from if ($from); + $headers{'From'} = $from if ($from); return \%headers; } |