diff options
| author | Abigail <abigail@abigail.be> | 2009-11-23 18:56:44 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2009-11-23 18:56:44 +0100 |
| commit | e90d6148cab189f145114468e60a00cfb4e3ec90 (patch) | |
| tree | 69f048768441894deb76eeca4201e3526a99e798 | |
| parent | ed7608978145cca2b6883d7c82443bc8f0a79806 (diff) | |
| download | perl-e90d6148cab189f145114468e60a00cfb4e3ec90.tar.gz | |
Don't suggest Mail::Send isn't availble if we're ignoring it
| -rw-r--r-- | utils/perlbug.PL | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index bd89e9d6ca..8862a9447c 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -1159,9 +1159,15 @@ sub _probe_for_sendmail { sub _send_message_sendmail { my $sendmail = _probe_for_sendmail(); unless ($sendmail) { - paraprint(<<"EOF"), die "\n"; + my $message_start = !$Is_Linux && !$Is_OpenBSD ? <<'EOT' : <<'EOT'; It appears that there is no program which looks like "sendmail" on your system and that the Mail::Send library from CPAN isn't available. +EOT +It appears that there is no program which looks like "sendmail" on +your system. +EOT + paraprint(<<"EOF"), die "\n"; +$message_start Because of this, there's no easy way to automatically send your message. |