3 # Find dependencies on perl stuff
4 # Remove .packlist files
6 BEGIN { push @INC, "debian", "/usr/lib/debhelper" }
10 my $perl = $ENV{'PERL'} || '/usr/bin/perl';
11 $version=sprintf("%.3f", $]);
13 foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
14 $TMP=tmpdir($PACKAGE);
15 $EXT=pkgext($PACKAGE);
17 my ($file, $v, $arch);
22 # Look for perl modules and check where they are installed
23 if (-d "$TMP/usr/lib/perl5") {
24 foreach $file (split(/\n/,`find $TMP/usr/lib/perl5 -type f -name "*.pm"`)) {
26 if ($file =~ m<^$TMP/usr/lib/perl5/(\d\.\d{3})/([^/]+)/>) {
29 check_module_version ($v, $version);
30 $v .= '-thread' if ($arch =~ /-thread/);
31 $dep_arch = add_deps ($dep_arch, "perl-$v");
32 } elsif ($file =~ m<^$TMP/usr/lib/perl5/(\d.\d{3})/>) {
34 check_module_version ($v, $version);
35 $dep_arch = add_deps ($dep_arch, "perl-$v");
40 if ($found and not $dep_arch) {
46 # Look for perl scripts
48 foreach $file (split(/\n/,`find $TMP -type f \\( -name "*.pl" -or -perm +111 \\)`)) {
51 $newdep = dep_from_script ($file);
52 $dep = add_deps ($dep, $newdep) if $newdep;
56 # Remove .packlist files and eventually some empty directories
57 if (not $dh{'K_FLAG'}) {
58 foreach $file (split(/\n/,`find $TMP -type f -name .packlist`))
61 # Get the directory name
62 while ($file =~ s#/[^/]+$##){
63 last if (not -d $file);
64 last if (not rmdir $file);
71 if (-e "debian/$EXT\subtsvars") {
72 open (IN, "<debian/$EXT\subtsvars");
73 my @lines=grep { ! /^perl:Depends=/ } <IN>;
75 open (OUT, ">debian/$EXT\subtsvars");
78 open (OUT, ">debian/$EXT\subtsvars");
80 print OUT "perl:Depends=$dep\n";
87 # If $new = perl5 or perl5-thread check if perl-X.XXX(-thread)?
88 # is not already in the dependencies
89 if ($new eq "perl5") {
90 return $dep if ($dep =~ m/(^|\s)perl-5\.\d{3}(\s|,|$)/);
91 } elsif ($new eq "perl5-thread") {
92 return $dep if ($dep =~ m/(^|\s)perl-5\.\d{3}-thread(\s|,|$)/);
98 $dep .= ", $new" unless ($dep =~ m/(^|\s)$new(\s|,|$)/);
104 sub check_module_version {
106 unless ($v1 eq $v2) {
107 warning("A module has been found in perl-$v1 arch directory. But perl-$v2 is the perl currently used ...\n");
111 sub dep_from_script {
113 my ($line, $perl, $dep);
114 open (SCRIPT, "<$file") || die "Can't open $file: $!\n";
117 if ($line =~ m<^#!\s*/usr/bin/(perl\S*)(?:\s+|$)>) {
119 if ($perl eq "perl") {
121 } elsif ($perl eq "perl-thread") {
122 $dep = "perl5-thread";
123 } elsif ($perl =~ m/^perl-\d\.\d{3}(?:-thread)?$/) {
125 } elsif ($perl =~ m/^perl(\d\.\d{3})(\d\d)$/) {
126 # Should never happen but ...
127 $dep = "perl-$1 (=$1.$2)";