This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[ID 20000824.029] MakeMaker manifypods fails on DJGPP systems
authorPeter J. Farley III <pjfarley@banet.net>
Thu, 24 Aug 2000 21:58:03 +0000 (17:58 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 25 Aug 2000 17:05:43 +0000 (17:05 +0000)
Message-Id: <4.3.1.0.20000824215500.00ac3df0@pop5.banet.net>

(applied slightly modified)

p4raw-id: //depot/perl@6811

lib/ExtUtils/MM_Unix.pm

index 0721dc9..c3fa99a 100644 (file)
@@ -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;
 }