Improve error message on MSVC if perl*.lib is not found.

hlinnaka · hlinnaka · commit 3c2d5d6600de · 2016-09-23T14:21:59.000+03:00
John Harvey, reviewed by Michael Paquier

Discussion: &lt;CABcP5fjEjgOsh097cWnQrsK9yCswo4DZxp-V47DKCH-MxY9Gig@mail.gmail.com&gt;
diff --git a/src/tools/msvc/Mkvcbuild.pm b/src/tools/msvc/Mkvcbuild.pm
@@ -557,16 +557,17 @@ sub mkvcbuild
 			}
 		}
 		$plperl->AddReference($postgres);
+		my $perl_path = $solution->{options}->{perl} . '\lib\CORE\perl*.lib';
 		my @perl_libs =
 		  grep { /perl\d+.lib$/ }
-		  glob($solution->{options}->{perl} . '\lib\CORE\perl*.lib');
+		  glob($perl_path);
 		if (@perl_libs == 1)
 		{
 			$plperl->AddLibrary($perl_libs[0]);
 		}
 		else
 		{
-			die "could not identify perl library version";
+			die "could not identify perl library version matching pattern $perl_path\n";
 		}
 
 		# Add transform module dependent on plperl

Original file line number	Diff line number	Diff line change
`@@ -557,16 +557,17 @@ sub mkvcbuild`
`557`	`557`	`}`
`558`	`558`	`}`
`559`	`559`	`$plperl->AddReference($postgres);`
	`560`	`+ my $perl_path = $solution->{options}->{perl} . '\lib\CORE\perl*.lib';`
`560`	`561`	`my @perl_libs =`
`561`	`562`	`grep { /perl\d+.lib$/ }`
`562`		`- glob($solution->{options}->{perl} . '\lib\CORE\perl*.lib');`
	`563`	`+ glob($perl_path);`
`563`	`564`	`if (@perl_libs == 1)`
`564`	`565`	`{`
`565`	`566`	`$plperl->AddLibrary($perl_libs[0]);`
`566`	`567`	`}`
`567`	`568`	`else`
`568`	`569`	`{`
`569`		`- die "could not identify perl library version";`
	`570`	`+ die "could not identify perl library version matching pattern $perl_path\n";`
`570`	`571`	`}`
`571`	`572`
`572`	`573`	`# Add transform module dependent on plperl`