[perl.git] branch blead, updated. v5.11.2-51-ge90d614

[Abigail]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/e90d6148cab189f145114468e60a00cfb4e3ec90?hp=ed7608978145cca2b6883d7c82443bc8f0a79806>

- Log -----------------------------------------------------------------
commit e90d6148cab189f145114468e60a00cfb4e3ec90
Author: Abigail <abi...@abigail.be>
Date: Mon Nov 23 18:56:44 2009 +0100

Don't suggest Mail::Send isn't availble if we're ignoring it
-----------------------------------------------------------------------

Summary of changes:
utils/perlbug.PL | 8 +++++++-
1 files changed, 7 insertions(+), 1 deletions(-)

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index bd89e9d..8862a94 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.

--
Perl5 Master Repository