From: Peter J. Farley III <pjfarley@banet.net>
Date: Thu, 24 Aug 2000 21:58:03 +0000 (-0400)
Subject: [ID 20000824.029] MakeMaker manifypods fails on DJGPP systems
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ed2b665b363546c550b4ce5b4fbb4a51c6943556;p=p5sagit%2Fp5-mst-13.2.git

[ID 20000824.029] MakeMaker manifypods fails on DJGPP systems
Message-Id: <4.3.1.0.20000824215500.00ac3df0@pop5.banet.net>

(applied slightly modified)

p4raw-id: //depot/perl@6811
---

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 0721dc9..c3fa99a 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -3178,9 +3178,11 @@ form Foo/Bar and replaces the slash with C<::>. Returns the replacement.
 sub replace_manpage_separator {
     my($self,$man) = @_;
 	if ($^O eq 'uwin') {
-		$man =~ s,/+,.,g;
+	    $man =~ s,/+,.,g;
+	} elsif ($Is_Dos) {
+	    $man =~ s,/+,__,g;
 	} else {
-		$man =~ s,/+,::,g;
+	    $man =~ s,/+,::,g;
 	}
     $man;
 }