Actually pick .lib file when multiple perl libs are present

mhagander · mhagander · commit 6946280cded9 · 2018-03-04T18:01:25.000+01:00
7240962 got it right in the comment, but the code did not actually do what the comment said. Fix that. Issue pointed out by Noah Misch.
diff --git a/src/tools/msvc/Mkvcbuild.pm b/src/tools/msvc/Mkvcbuild.pm
@@ -527,7 +527,7 @@ sub mkvcbuild
 		# Starting with ActivePerl 5.24, both  perlnn.lib and libperlnn.a are provided.
 		# In this case, prefer .lib.
 		my @perl_libs =
-		  grep { /perl\d+\.lib$|libperl\d+\.a$/ } glob($perl_path);
+		  reverse sort grep { /perl\d+\.lib$|libperl\d+\.a$/ } glob($perl_path);
 		if (@perl_libs > 0)
 		{
 			$plperl->AddLibrary($perl_libs[0]);

Original file line number	Diff line number	Diff line change
`@@ -527,7 +527,7 @@ sub mkvcbuild`
`527`	`527`	`# Starting with ActivePerl 5.24, both perlnn.lib and libperlnn.a are provided.`
`528`	`528`	`# In this case, prefer .lib.`
`529`	`529`	`my @perl_libs =`
`530`		`- grep { /perl\d+\.lib$\|libperl\d+\.a$/ } glob($perl_path);`
	`530`	`+ reverse sort grep { /perl\d+\.lib$\|libperl\d+\.a$/ } glob($perl_path);`
`531`	`531`	`if (@perl_libs > 0)`
`532`	`532`	`{`
`533`	`533`	`$plperl->AddLibrary($perl_libs[0]);`