develooper Front page | perl.perl5.porters | Postings from April 2010

Re: [PATCH] Also guess $ENV{EMAIL}, if present, as the originatingaddress

Thread Previous
From:
H.Merijn Brand
Date:
April 17, 2010 01:10
Subject:
Re: [PATCH] Also guess $ENV{EMAIL}, if present, as the originatingaddress
Message ID:
20100417101037.7ce19938@pc09.procura.nl
On Fri, 16 Apr 2010 23:54:11 -0400, Alex Vandiver <alex@chmrr.net>
wrote:

Thanks, applied as c8a80d16cf4dde2a23dbe6b03778a8766e0f3f5f

> ---
>  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{


-- 
H.Merijn Brand  http://tux.nl      Perl Monger  http://amsterdam.pm.org/
using & porting perl 5.6.2, 5.8.x, 5.10.x, 5.11.x on HP-UX 10.20, 11.00,
11.11, 11.23, and 11.31, OpenSuSE 10.3, 11.0, and 11.1, AIX 5.2 and 5.3.
http://mirrors.develooper.com/hpux/           http://www.test-smoke.org/
http://qa.perl.org      http://www.goldmark.org/jeff/stupid-disclaimers/

Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About