diff options
| author | David Leadbeater <dgl@dgl.cx> | 2011-01-29 11:24:49 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-01-29 11:54:21 -0800 |
| commit | 019cfd23e1d0f981818c12f192d4ef2a226a168b (patch) | |
| tree | 26e5355f727804f7de4a086a1b7d4a3ce367b409 /utils | |
| parent | 1fb83d064d417f1b68ff7dac20aa5f04bb4d5a6b (diff) | |
| download | perl-019cfd23e1d0f981818c12f192d4ef2a226a168b.tar.gz | |
[perl #82996] Use the user's from address as return-path in perlbug
Many systems thesedays don't have a valid internet domain name and
perlbug@perl.org does not accept email with a return-path that does not
resolve. Therefore pass the user's address to sendmail so it's less
likely to get stuck in a mail queue somewhere.
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perlbug.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 2972ae77cf..368ce91f77 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -1164,8 +1164,8 @@ send to '$address' with your normal mail client. EOF } - open( SENDMAIL, "|$sendmail -t -oi" ) - || die "'|$sendmail -t -oi' failed: $!"; + open( SENDMAIL, "|-", $sendmail, "-t", "-oi", "-f", $from ) + || die "'|$sendmail -t -oi -f $from' failed: $!"; print SENDMAIL build_complete_message(); if ( close(SENDMAIL) ) { print "\nMessage sent\n"; |