From 019cfd23e1d0f981818c12f192d4ef2a226a168b Mon Sep 17 00:00:00 2001 From: David Leadbeater Date: Sat, 29 Jan 2011 11:24:49 -0800 Subject: [PATCH 1/1] [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. --- utils/perlbug.PL | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 2972ae7..368ce91 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"; -- 1.8.3.1