diff options
| -rw-r--r-- | utils/perlbug.PL | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 77ef3bd75e..38f2b3b389 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -456,11 +456,12 @@ EOF } # Prompt for return address, if needed - unless ($from) { + unless ($::opt_r) { # Try and guess return address my $guess; - $guess = $ENV{'REPLY-TO'} || $ENV{'REPLYTO'} || $ENV{'EMAIL'} || ''; + $guess = $ENV{'REPLY-TO'} || $ENV{'REPLYTO'} || $ENV{'EMAIL'} + || $from || ''; if ($Is_MacOS) { require Mac::InternetConfig; $guess = $Mac::InternetConfig::InternetConfig{ |