Use $Config{debian_abi} to generate the perlapi-* dependency

[debhelper.git] / dh_perl

diff --git a/dh_perl b/dh_perl
index 56d9f21a972d3c73d7912ee53bd396ee6da128bc..5739ca9f3aa7f756b9ede0fe6b8ba274c306983d 100755 (executable)
--- a/dh_perl
+++ b/dh_perl
@@ -90,8 +90,6 @@ use constant XS_MODULE => 4;
 foreach my $package (@{$dh{DOPACKAGES}}) {
        my $tmp=tmpdir($package);
 
-       delsubstvar($package, "perl:Depends"); # for idempotency
-       
        # Check also for alternate locations given on the command line
        my @dirs = grep -d, map "$tmp/$_", $vendorlib, $vendorarch, @ARGV;
 
@@ -106,6 +104,8 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
        # find scripts
        find sub {
                return unless -f and (-x or /\.pl$/);
+               return if $File::Find::dir=~/\/usr\/share\/doc\//;
+               
                local *F;
                return unless open F, $_;
                if (read F, local $_, 32 and m%^#!\s*(/usr/bin/perl|/usr/bin/env\s+perl)\s%) {
@@ -128,7 +128,8 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
                        unless $perl eq 'perl-base' && ! length($version);
 
                # add perlapi-<ver> for XS modules
-               addsubstvar($package, "perl:Depends", "perlapi-$Config{version}")
+               addsubstvar($package, "perl:Depends",
+                       "perlapi-" . ($Config{debian_abi} || $Config{version}))
                        if $deps & XS_MODULE;
        }