diff options
| author | Dave Rolsky <autarch@urth.org> | 2001-12-24 07:27:23 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-24 22:58:18 +0000 |
| commit | ecf68df6e17568faac489c8f52d98e01e32472af (patch) | |
| tree | 9cc6067e7520f3d3040c2bc3759cf5a94f024a8b /lib/ExtUtils/MM_Cygwin.pm | |
| parent | e036fef9c83c3a56ef6c3a3bedfa658fcb8a2517 (diff) | |
| download | perl-ecf68df6e17568faac489c8f52d98e01e32472af.tar.gz | |
: ExtUtils::MM_* and File::Spec
Message-ID: <Pine.LNX.4.43.0112241305020.21723-100000@urth.org>
p4raw-id: //depot/perl@13880
Diffstat (limited to 'lib/ExtUtils/MM_Cygwin.pm')
| -rw-r--r-- | lib/ExtUtils/MM_Cygwin.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/ExtUtils/MM_Cygwin.pm b/lib/ExtUtils/MM_Cygwin.pm index 45833ca259..3d03d321f3 100644 --- a/lib/ExtUtils/MM_Cygwin.pm +++ b/lib/ExtUtils/MM_Cygwin.pm @@ -12,12 +12,13 @@ require Exporter; require ExtUtils::MakeMaker; ExtUtils::MakeMaker->import(qw( $Verbose &neatvalue)); +use File::Spec; + unshift @MM::ISA, 'ExtUtils::MM_Cygwin'; sub canonpath { - my($self,$path) = @_; - $path =~ s|\\|/|g; - return $self->ExtUtils::MM_Unix::canonpath($path); + shift; + return File::Spec->canonpath(@_); } sub cflags { @@ -46,9 +47,9 @@ sub manifypods { my($dist); my($pod2man_exe); if (defined $self->{PERL_SRC}) { - $pod2man_exe = $self->catfile($self->{PERL_SRC},'pod','pod2man'); + $pod2man_exe = File::Spec->catfile($self->{PERL_SRC},'pod','pod2man'); } else { - $pod2man_exe = $self->catfile($Config{scriptdirexp},'pod2man'); + $pod2man_exe = File::Spec->catfile($Config{scriptdirexp},'pod2man'); } unless ($self->perl_script($pod2man_exe)) { # No pod2man but some MAN3PODS to be installed |