dh_perl: detect cross built XS modules

When cross building, scan the host architecture search path for Perl
compiled plugins (XS modules) rather than the build architecture one.

1 files changed, 5 insertions, 0 deletions

diff --git a/dh_perl b/dh_perl
index d79b7957..ad6cd6dd 100755
--- a/dh_perl
+++ b/dh_perl
@@ -73,6 +73,11 @@ init();
 
 my $vendorlib = substr $Config{vendorlib}, 1;
 my $vendorarch = substr $Config{vendorarch}, 1;
+if (is_cross_compiling()) {
+	my $incdir = perl_cross_incdir();
+	$vendorarch = substr qx/perl -I$incdir -MConfig -e 'print \$Config{vendorarch}'/, 1
+		if defined $incdir;
+}
 
 # Cleaning the paths given on the command line
 foreach (@ARGV) {