3 # Find dependencies on perl stuff
4 # Remove .packlist files
7 use Debian::Debhelper::Dh_Lib;
11 my $lib_dir = 'usr/lib/perl5';
13 # Figure out the version of perl. If $ENV{PERL} is set, query the perl binary
14 # it points to, otherwise query perl directly.
16 # This is pretty gawd-aweful ugly, because we need "5.00[45]"
17 # and "5.[6789]" to be returned depending on perl version.
19 if (defined $ENV{PERL}) {
20 $version=`$ENV{PERL} -e '\$] < 5.006 ? printf "%.3f", \$] : printf "%vd", substr \$^V, 0, -1'`;
23 $version=$] < 5.006 ? sprintf "%.3f", $] : sprintf "%vd", substr $^V, 0, -1;
26 # Cleaning the paths given on the command line
32 # If -d is given, then we'll try to depend on one of the perl-5.00X-base
33 # package instead of perl-5.00X
34 $perlext='-base' if ($dh{'D_FLAG'});
36 foreach my $package (@{$dh{DOPACKAGES}}) {
37 my $tmp=tmpdir($package);
38 my $ext=pkgext($package);
40 my ($file, $v, $arch);
45 # Check also for alternate locations given on the command line
47 foreach ($lib_dir, @ARGV) {
48 $dirs .= "$tmp/$_ " if (-d "$tmp/$_");
50 my $re = '(?:' . join('|', ($lib_dir, @ARGV)) . ')';
52 # Look for perl modules and check where they are installed
54 foreach $file (split(/\n/,`find $dirs -type f \\( -name "*.pm" -or -name "*.so" \\)`)) {
56 if ($file =~ m<^$tmp/$re/(\d\.\d+)/([^/]+)/>) {
59 check_module_version ($v, $version);
60 $v .= '-thread' if ($arch =~ /-thread/);
61 $dep_arch = add_deps ($dep_arch, "perl-$v");
62 } elsif ($file =~ m<^$tmp/$re/(\d.\d+)/>) {
64 check_module_version ($v, $version);
65 $dep_arch = add_deps ($dep_arch, "perl-$v");
70 if ($found and not $dep_arch) {
71 $dep = "perl5$perlext";
76 # Look for perl scripts
78 foreach $file (split(/\n/,`find $tmp -type f \\( -name "*.pl" -or -perm +111 \\)`)) {
81 $newdep = dep_from_script ($file);
82 $dep = add_deps ($dep, $newdep) if $newdep;
86 # Remove .packlist files and eventually some empty directories
87 if (not $dh{'K_FLAG'}) {
88 foreach $file (split(/\n/,`find $tmp -type f -name .packlist`))
91 # Get the directory name
92 while ($file =~ s#/[^/]+$##){
93 last if (not -d $file);
94 last if (not rmdir $file);
101 if (-e "debian/${ext}substvars") {
102 open (IN, "<debian/${ext}substvars");
103 my @lines=grep { ! /^perl:Depends=/ } <IN>;
105 open (OUT, ">debian/${ext}substvars");
108 open (OUT, ">debian/${ext}substvars");
110 print OUT "perl:Depends=$dep\n";
115 my ($dep, $new) = @_;
117 # If the $new-base package can exist then add $perlext to $new
118 $new = "$new$perlext" if ($new =~ m/^(?:perl5|perl-\d\.\d+)$/);
120 # If $new = perl5 or perl5-thread check if perl-X.XXX(-thread)?
121 # is not already in the dependencies
122 if ($new eq "perl5") {
123 return $dep if ($dep =~ m/(^|\s)perl-5\.\d+(\s|,|$)/);
124 } elsif ($new eq "perl5-thread") {
125 return $dep if ($dep =~ m/(^|\s)perl-5\.\d+-thread(\s|,|$)/);
131 $dep .= ", $new" unless ($dep =~ m/(^|\s)$new(\s|,|$)/);
137 sub check_module_version {
139 unless ($v1 eq $v2) {
140 warning("A module has been found in perl-$v1 arch directory. But perl-$v2 is the perl currently used ...\n");
144 sub dep_from_script {
146 my ($line, $perl, $dep);
147 open (SCRIPT, "<$file") || die "Can't open $file: $!\n";
150 if ($line =~ m<^#!\s*/usr/bin/(perl\S*)(?:\s+|$)>) {
152 if ($perl eq "perl") {
154 } elsif ($perl eq "perl-thread") {
155 $dep = "perl5-thread";
156 } elsif ($perl =~ m/^perl-\d\.\d+(?:-thread)?$/) {
158 } elsif ($perl =~ m/^perl(\d\.\d+)(\d\d)$/) {
159 # Should never happen but ...
160 $dep = "perl-$1 (=$1.$2)";