Revert "postpone perl_parse() exit(0) bugfix"

[perl5.git] / make_ext.pl

diff --git a/make_ext.pl b/make_ext.pl
index 0280a02..ba507c8 100644 (file)
--- a/make_ext.pl
+++ b/make_ext.pl
@@ -36,10 +36,6 @@ my $ext_dirs_re = '(?:' . join('|', @ext_dirs) . ')';
 # 
 #     make_ext.pl "MAKE=nmake -nologo" --dir=..\ext --target=clean
 # 
-#     make_ext.pl MAKE=dmake --dir=..\ext
-# 
-#     make_ext.pl MAKE=dmake --dir=..\ext --target=clean
-# 
 # Will skip building extensions which are marked with an '!' char.
 # Mostly because they still not ported to specified platform.
 # 
@@ -168,7 +164,7 @@ if (IS_WIN32) {
     $ENV{PATH} = "$topdir;$topdir\\win32\\bin;$ENV{PATH}";
     my $pl2bat = "$topdir\\win32\\bin\\pl2bat";
     unless (-f "$pl2bat.bat") {
-       my @args = ($perl, "-I$topdir\\lib", ("$pl2bat.pl") x 2);
+       my @args = ($perl, "-I$topdir\\lib", "-I$topdir\\cpan\\ExtUtils-PL2Bat\\lib", ("$pl2bat.pl") x 2);
        print "@args\n" if $verbose;
        system(@args) unless IS_CROSS;
     }
@@ -523,6 +519,7 @@ EOM
                'INSTALLMAN3DIR=none';
        }
        push @args, @$pass_through;
+       push @args, 'PERL=' . $perl if $perl; # use miniperl to run the Makefile later
        _quote_args(\@args) if IS_VMS;
        print join(' ', $perl, @args), "\n" if $verbose;
        my $code = do {
@@ -658,6 +655,7 @@ sub just_pm_to_blib {
                             |README
                             |README\.patching
                             |README\.release
+                            |\.gitignore
                             )\z/xi; # /i to deal with case munging systems.
         if ($leaf eq "$last.pm") {
             ++$has_top;