Skip to content

Commit e90d614

Browse files
author
Abigail
committed
Don't suggest Mail::Send isn't availble if we're ignoring it
1 parent ed76089 commit e90d614

File tree

1 file changed

+7
-1
lines changed

1 file changed

+7
-1
lines changed

utils/perlbug.PL

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1159,9 +1159,15 @@ sub _probe_for_sendmail {
11591159
sub _send_message_sendmail {
11601160
my $sendmail = _probe_for_sendmail();
11611161
unless ($sendmail) {
1162-
paraprint(<<"EOF"), die "\n";
1162+
my $message_start = !$Is_Linux && !$Is_OpenBSD ? <<'EOT' : <<'EOT';
11631163
It appears that there is no program which looks like "sendmail" on
11641164
your system and that the Mail::Send library from CPAN isn't available.
1165+
EOT
1166+
It appears that there is no program which looks like "sendmail" on
1167+
your system.
1168+
EOT
1169+
paraprint(<<"EOF"), die "\n";
1170+
$message_start
11651171
Because of this, there's no easy way to automatically send your
11661172
message.
11671173

0 commit comments

Comments
 (0)