From 40cbd7d0f20a3d355a22dfb5a55509927e287b30 Mon Sep 17 00:00:00 2001
From: Lucas Holt <luke@foolishgames.com>
Date: Thu, 11 Jan 2024 13:48:58 -0500
Subject: [PATCH] MidnightBSD uses mandoc

---
 lib/Pod/Perldoc/BaseTo.pm | 1 +
 lib/Pod/Perldoc/ToMan.pm  | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Pod/Perldoc/BaseTo.pm b/lib/Pod/Perldoc/BaseTo.pm
index 5e1ea87..5a9cef7 100644
--- a/lib/Pod/Perldoc/BaseTo.pm
+++ b/lib/Pod/Perldoc/BaseTo.pm
@@ -35,6 +35,7 @@ BEGIN {
  *is_openbsd = $^O =~ m/openbsd/ ? \&TRUE : \&FALSE unless defined &is_openbsd;
  *is_freebsd = $^O =~ m/freebsd/ ? \&TRUE : \&FALSE unless defined &is_freebsd;
  *is_bitrig = $^O =~ m/bitrig/ ? \&TRUE : \&FALSE unless defined &is_bitrig;
+ *is_midnightbsd = $^O =~ m/midnightbsd/ ? \&TRUE : \&FALSE unless defined &is_midnightbsd;
 }
 
 sub _perldoc_elem {
diff --git a/lib/Pod/Perldoc/ToMan.pm b/lib/Pod/Perldoc/ToMan.pm
index cce38b8..b7f528a 100644
--- a/lib/Pod/Perldoc/ToMan.pm
+++ b/lib/Pod/Perldoc/ToMan.pm
@@ -64,7 +64,7 @@ sub init {
 sub _roffer_candidates {
 	my( $self ) = @_;
 
-	if( $self->is_openbsd || $self->is_freebsd || $self->is_bitrig ) { qw( mandoc groff nroff ) }
+	if( $self->is_openbsd || $self->is_freebsd || $self->is_bitrig || $self->is_midnightbsd ) { qw( mandoc groff nroff ) }
 	else                    { qw( groff nroff mandoc ) }
 	}