From: Abigail <abigail@abigail.be>
Date: Mon, 23 Nov 2009 17:56:44 +0000 (+0100)
Subject: Don't suggest Mail::Send isn't availble if we're ignoring it
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e90d6148cab189f145114468e60a00cfb4e3ec90;p=p5sagit%2Fp5-mst-13.2.git

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

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.