r220: Initial Import

diff --git a/debian/changelog b/debian/changelog
index 52ae7f35857ef32ef30370cfbf6c8806319b2b7a..8d402a7350b8d39ccc3ee496a54b6a00aefed5a6 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+debhelper (1.2.80) unstable; urgency=low
+
+  * Changed perl version detection.
+  * Changed call to find.
+
+ -- Joey Hess <joeyh@master.debian.org>  Thu, 24 Jun 1999 16:48:53 -0700
+
 debhelper (1.2.79) unstable; urgency=low
 
   * Added dh_perl by Raphael Hertzog <rhertzog@hrnet.fr>. dh_perl handles

diff --git a/dh_perl b/dh_perl
index 4136414f3fe80e26e3bf49a5197c5eeb3c4beb0b..c8aa6a01770ed1d58de498a34b88ee8449293e82 100755 (executable)
--- a/dh_perl
+++ b/dh_perl
@@ -7,8 +7,14 @@ BEGIN { push @INC, "debian", "/usr/lib/debhelper" }
 use Dh_Lib;
 init();
 
-my $perl = $ENV{'PERL'} || '/usr/bin/perl';
-$version=sprintf("%.3f", $]);
+my $perl = $ENV{PERL} || '/usr/bin/perl';
+
+# Figure out the version of perl. If $ENV{PERL} is set, query the perl binary
+# it points to, otherwise query perl directly.
+my $version=sprintf("%.3f", $]);
+if (defined $ENV{PERL}) {
+       $version=`$ENV{PERL} -e 'printf "%.3f", \$]'`;
+}
 
 foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
        $TMP=tmpdir($PACKAGE);
@@ -21,7 +27,7 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
 
        # Look for perl modules and check where they are installed
        if (-d "$TMP/usr/lib/perl5") {
-           foreach $file (split(/\n/,`find $TMP/usr/lib/perl5 -type f -name "*.pm"`)) {
+           foreach $file (split(/\n/,`find $TMP/usr/lib/perl5 -type f \\( -name "*.pm" -or -name "*.so" \\)`)) {
                $found++;
                if ($file =~ m<^$TMP/usr/lib/perl5/(\d\.\d{3})/([^/]+)/>) {
                        $v = $1;