Prevent possibly spurious error when running perl -cw

adunstan · adunstan · commit 3dacd9bf3287 · 2018-05-18T10:47:41.000-04:00
diff --git a/src/tools/msvc/Mkvcbuild.pm b/src/tools/msvc/Mkvcbuild.pm
@@ -691,7 +691,7 @@ sub mkvcbuild
 			(my $xsc = $xs) =~ s/\.xs/.c/;
 			if (Solution::IsNewer("$plperlsrc$xsc", "$plperlsrc$xs"))
 			{
-				my $xsubppdir = first { -e "$_/ExtUtils/xsubpp" } @INC;
+				my $xsubppdir = first { -e "$_/ExtUtils/xsubpp" } (@INC);
 				print "Building $plperlsrc$xsc...\n";
 				system( $solution->{options}->{perl}
 					  . '/bin/perl '

Original file line number	Diff line number	Diff line change
`@@ -691,7 +691,7 @@ sub mkvcbuild`
`691`	`691`	`(my $xsc = $xs) =~ s/\.xs/.c/;`
`692`	`692`	`if (Solution::IsNewer("$plperlsrc$xsc", "$plperlsrc$xs"))`
`693`	`693`	`{`
`694`		`- my $xsubppdir = first { -e "$_/ExtUtils/xsubpp" } @INC;`
	`694`	`+ my $xsubppdir = first { -e "$_/ExtUtils/xsubpp" } (@INC);`
`695`	`695`	`print "Building $plperlsrc$xsc...\n";`
`696`	`696`	`system( $solution->{options}->{perl}`
`697`	`697`	`. '/bin/perl '`