This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't suggest Mail::Send isn't availble if we're ignoring it
authorAbigail <abigail@abigail.be>
Mon, 23 Nov 2009 17:56:44 +0000 (18:56 +0100)
committerAbigail <abigail@abigail.be>
Mon, 23 Nov 2009 17:56:44 +0000 (18:56 +0100)
utils/perlbug.PL

index bd89e9d..8862a94 100644 (file)
@@ -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.