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

[PATCH] Also guess $ENV{EMAIL}, if present, as the originating address

Thread Previous | Thread Next
From:
Alex Vandiver
Date:
April 16, 2010 20:54
Subject:
[PATCH] Also guess $ENV{EMAIL}, if present, as the originating address
Message ID:
1271476451-16920-1-git-send-email-alex@chmrr.net
---
 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{
-- 
1.7.0.rc0.140.gfbe7


Thread Previous | Thread Next


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