From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 25 Apr 2002 17:41:48 +0000 (+0000)
Subject: some extension builds need to find pl2bat.bat on windows
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3a7016a88d877abd83ec249112ec5d7c6c2c696b;p=p5sagit%2Fp5-mst-13.2.git

some extension builds need to find pl2bat.bat on windows

p4raw-id: //depot/perl@16162
---

diff --git a/win32/buildext.pl b/win32/buildext.pl
index a7cc19b..7125753 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;