From: Alex Vandiver <alex@chmrr.net>
Date: Sat, 17 Apr 2010 03:54:11 +0000 (-0400)
Subject: Also guess $ENV{EMAIL}, if present, as the originating address
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c8a80d16cf4dde2a23dbe6b03778a8766e0f3f5f;p=p5sagit%2Fp5-mst-13.2.git

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

Signed-off-by: H.Merijn Brand <h.m.brand@xs4all.nl>
---

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{