In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/c8a80d16cf4dde2a23dbe6b03778a8766e0f3f5f?hp=4f1623e5e854b85ee815e79fd4cf7f5c0c8cccb5>

- Log -----------------------------------------------------------------
commit c8a80d16cf4dde2a23dbe6b03778a8766e0f3f5f
Author: Alex Vandiver <[email protected]>
Date:   Fri Apr 16 23:54:11 2010 -0400

    Also guess $ENV{EMAIL}, if present, as the originating address
    
    Signed-off-by: H.Merijn Brand <[email protected]>
-----------------------------------------------------------------------

Summary of changes:
 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{

--
Perl5 Master Repository

Reply via email to