Win32: Search for pl2bat.bat in the path

shawnlaffan · mohawk2 · commit afa6ee75c333 · 2025-02-27T17:28:47.000Z
And specify its full path in the generated Makefile.
diff --git a/lib/ExtUtils/MM_Win32.pm b/lib/ExtUtils/MM_Win32.pm
@@ -148,8 +148,9 @@ sub init_tools {
             $self->{FIXIN} = "\$(PERLRUN) -I${psrc}\\cpan\\ExtUtils-PL2Bat\\lib ${psrc}\\win32\\bin\\pl2bat.pl";
         }
         else {
-            my $p2bpath = "$Config{installscript}\\pl2bat.bat";
-            $self->{FIXIN} = -e $p2bpath ? qq{"$p2bpath"} : 'pl2bat.bat';
+            my @path = split $Config{path_sep}, $ENV{PATH};
+            my @found = grep {-e qq{$_\\pl2bat.bat}} @path;
+            $self->{FIXIN} = @found ? qq{"$found[0]\\pl2bat.bat"} : "pl2bat.bat";
         }
     }
 

Original file line number	Diff line number	Diff line change
`@@ -148,8 +148,9 @@ sub init_tools {`
`148`	`148`	`$self->{FIXIN} = "\$(PERLRUN) -I${psrc}\\cpan\\ExtUtils-PL2Bat\\lib ${psrc}\\win32\\bin\\pl2bat.pl";`
`149`	`149`	`}`
`150`	`150`	`else {`
`151`		`- my $p2bpath = "$Config{installscript}\\pl2bat.bat";`
`152`		`- $self->{FIXIN} = -e $p2bpath ? qq{"$p2bpath"} : 'pl2bat.bat';`
	`151`	`+ my @path = split $Config{path_sep}, $ENV{PATH};`
	`152`	`+ my @found = grep {-e qq{$_\\pl2bat.bat}} @path;`
	`153`	`+ $self->{FIXIN} = @found ? qq{"$found[0]\\pl2bat.bat"} : "pl2bat.bat";`
`153`	`154`	`}`
`154`	`155`	`}`
`155`	`156`