diff options
| author | Peter J. Farley III <pjfarley@banet.net> | 2000-08-24 17:58:03 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-25 17:05:43 +0000 |
| commit | ed2b665b363546c550b4ce5b4fbb4a51c6943556 (patch) | |
| tree | 1ea36aa394ec38a0907306b2233959b537784c55 /lib/ExtUtils | |
| parent | 1e846b39a9b9b392d59f44058306b22437dc032a (diff) | |
| download | perl-ed2b665b363546c550b4ce5b4fbb4a51c6943556.tar.gz | |
[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
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 0721dc9133..c3fa99a516 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; } |