diff --git a/contrib/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm b/contrib/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm
index 37f651047d6..91b733018b6 100644
--- a/contrib/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm
+++ b/contrib/perl/cpan/Pod-Perldoc/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/contrib/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm b/contrib/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm
index bfcb5c40ee6..577ae689ef9 100644
--- a/contrib/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm
+++ b/contrib/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm
@@ -63,7 +63,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 ) }
 	}