summaryrefslogtreecommitdiff
path: root/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-10-24 14:03:55 -0700
committerFather Chrysostomos <sprout@cpan.org>2014-10-24 14:03:55 -0700
commitb37c54af8999d4b762bc5532a5ded18c28f61270 (patch)
tree2a74139f83c43b86be9cccf219b69601fc494f2b /cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm
parenteb9e3b14fd77e43b36846b86f8780d23fda50258 (diff)
downloadperl-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.pm52
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
+
+