diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-10-24 14:03:55 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-10-24 14:03:55 -0700 |
commit | b37c54af8999d4b762bc5532a5ded18c28f61270 (patch) | |
tree | 2a74139f83c43b86be9cccf219b69601fc494f2b /cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm | |
parent | eb9e3b14fd77e43b36846b86f8780d23fda50258 (diff) | |
download | perl-b37c54af8999d4b762bc5532a5ded18c28f61270.tar.gz |
Revert "Update ExtUtils-MakeMaker to CPAN version 7.00"
This reverts commit 7b01e4b183c6629065260ae2befad5e5d4ab6b94.
The newest ExtUtils::MakeMaker uses the :utf8 layers, which is not
available under miniperl on Windows. So the build fails.
Revert this for now until a fixed version is released.
Diffstat (limited to 'cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm')
-rw-r--r-- | cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm | 52 |
1 files changed, 18 insertions, 34 deletions
diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm index c64b49f6eb..e056d2eacc 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm @@ -27,7 +27,7 @@ use ExtUtils::MakeMaker qw( neatvalue ); require ExtUtils::MM_Any; require ExtUtils::MM_Unix; our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix ); -our $VERSION = '7.00'; +our $VERSION = '6.98'; $ENV{EMXSHELL} = 'sh'; # to run `commands` @@ -128,7 +128,7 @@ sub maybe_command { =item B<init_DIRFILESEP> -Using \ for Windows, except for "gmake" where it is /. +Using \ for Windows. =cut @@ -137,8 +137,7 @@ sub init_DIRFILESEP { # The ^ makes sure its not interpreted as an escape in nmake $self->{DIRFILESEP} = $self->is_make_type('nmake') ? '^\\' : - $self->is_make_type('dmake') ? '\\\\' : - $self->is_make_type('gmake') ? '/' + $self->is_make_type('dmake') ? '\\\\' : '\\'; } @@ -347,27 +346,27 @@ sub dynamic_lib { OTHERLDFLAGS = '.$otherldflags.' INST_DYNAMIC_DEP = '.$inst_dynamic_dep.' -$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists $(EXPORT_LIST) $(PERL_ARCHIVEDEP) $(INST_DYNAMIC_DEP) +$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP) '); if ($GCC) { push(@m, q{ }.$DLLTOOL.q{ --def $(EXPORT_LIST) --output-exp dll.exp - $(LD) -o $@ -Wl,--base-file -Wl,dll.base $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) $(MYEXTLIB) "$(PERL_ARCHIVE)" $(LDLOADLIBS) dll.exp + $(LD) -o $@ -Wl,--base-file -Wl,dll.base $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) dll.exp }.$DLLTOOL.q{ --def $(EXPORT_LIST) --base-file dll.base --output-exp dll.exp - $(LD) -o $@ $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) $(MYEXTLIB) "$(PERL_ARCHIVE)" $(LDLOADLIBS) dll.exp }); + $(LD) -o $@ $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) dll.exp }); } elsif ($BORLAND) { push(@m, q{ $(LD) $(LDDLFLAGS) $(OTHERLDFLAGS) }.$ldfrom.q{,$@,,} .($self->is_make_type('dmake') - ? q{"$(PERL_ARCHIVE:s,/,\,)" $(LDLOADLIBS:s,/,\,) } + ? q{$(PERL_ARCHIVE:s,/,\,) $(LDLOADLIBS:s,/,\,) } .q{$(MYEXTLIB:s,/,\,),$(EXPORT_LIST:s,/,\,)} - : q{"$(subst /,\,$(PERL_ARCHIVE))" $(subst /,\,$(LDLOADLIBS)) } + : q{$(subst /,\,$(PERL_ARCHIVE)) $(subst /,\,$(LDLOADLIBS)) } .q{$(subst /,\,$(MYEXTLIB)),$(subst /,\,$(EXPORT_LIST))}) .q{,$(RESFILES)}); } else { # VC push(@m, q{ $(LD) -out:$@ $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) } - .q{$(MYEXTLIB) "$(PERL_ARCHIVE)" $(LDLOADLIBS) -def:$(EXPORT_LIST)}); + .q{$(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) -def:$(EXPORT_LIST)}); # Embed the manifest file if it exists push(@m, q{ @@ -402,7 +401,6 @@ sub init_linker { my $self = shift; $self->{PERL_ARCHIVE} = "\$(PERL_INC)\\$Config{libperl}"; - $self->{PERL_ARCHIVEDEP} = "\$(PERL_INCDEP)\\$Config{libperl}"; $self->{PERL_ARCHIVE_AFTER} = ''; $self->{EXPORT_LIST} = '$(BASEEXT).def'; } @@ -423,29 +421,6 @@ sub perl_script { return; } -sub can_dep_space { - my $self = shift; - 1; # with Win32::GetShortPathName -} - -=item quote_dep - -=cut - -sub quote_dep { - my ($self, $arg) = @_; - if ($arg =~ / / and not $self->is_make_type('gmake')) { - require Win32; - $arg = Win32::GetShortPathName($arg); - die <<EOF if not defined $arg or $arg =~ / /; -Tried to use make dependency with space for non-GNU make: - '$arg' -Fallback to short pathname failed. -EOF - return $arg; - } - return $self->SUPER::quote_dep($arg); -} =item xs_o @@ -647,7 +622,16 @@ PERLTYPE = $self->{PERLTYPE} } +sub is_make_type { + my($self, $type) = @_; + return !! ($self->make =~ /\b$type(?:\.exe)?$/); +} + 1; __END__ =back + +=cut + + |