diff options
| author | David Mitchell <davem@iabyn.com> | 2010-06-08 00:08:19 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-06-08 00:08:19 +0100 |
| commit | e6eb90205a8cd8f42cd4d1226ea369f3ff1a14ae (patch) | |
| tree | 0c752cfafc9a4262b34073f7629105b594947d38 /utils/perlbug.PL | |
| parent | 4ea8010ab3e95796683d1a69375c8df8c4bea3fb (diff) | |
| download | perl-e6eb90205a8cd8f42cd4d1226ea369f3ff1a14ae.tar.gz | |
perlbug: always allow change of sender address
The code that guessed a default sender address would under some
circumstances not display this guess to the user with the option to change
it. Specifically, if $Config{cf_me} eq {login id of the user running
perlbug}.
In my case, cf_email got set at build time (Configure default) of
'davem@pigeon.(none)', which was then silently used. Not good!
Diffstat (limited to 'utils/perlbug.PL')
| -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{ |