some extension builds need to find pl2bat.bat on windows

p4raw-id: //depot/perl@16162

1 files changed, 8 insertions, 1 deletions

diff --git a/win32/buildext.pl b/win32/buildext.pl
index a7cc19b5d0..7125753709 100644
--- a/win32/buildext.pl
+++ b/win32/buildext.pl
@@ -29,8 +29,15 @@ if ($perl =~ m#^\.\.#)
   $perl = "$here\\$perl";
  }
 (my $topdir = $perl) =~ s/\\[^\\]+$//;
-$ENV{PATH} = "$topdir;$ENV{PATH}";	# so miniperl can find perlglob.exe
+# miniperl needs to find perlglob and pl2bat
+$ENV{PATH} = "$topdir;$topdir\\win32\\bin;$ENV{PATH}";
 #print "PATH=$ENV{PATH}\n";
+my $pl2bat = "$topdir\\win32\\bin\\pl2bat";
+unless (-f "$pl2bat.bat") {
+    my @args = ($perl, ("$pl2bat.pl") x 2);
+    print "@args\n";
+    system(@args);
+}
 my $make = shift;
 $make .= " ".shift while $ARGV[0]=~/^-/;
 my $dep  = shift;