dh_perl

   1 #!/usr/bin/perl -w
   2 #
   3 # Find dependencies on perl stuff
   4 # Remove .packlist files
   5
   6 BEGIN { push @INC, "debian", "/usr/lib/debhelper" }
   7 use Dh_Lib;
   8 init();
   9
  10 my $perl = $ENV{'PERL'} || '/usr/bin/perl';
  11 $version=sprintf("%.3f", $]);
  12
  13 foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
  14         $TMP=tmpdir($PACKAGE);
  15         $EXT=pkgext($PACKAGE);
  16
  17         my ($file, $v, $arch);
  18         my $dep_arch = '';
  19         my $dep = '';
  20         my $found = 0;
  21
  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"`)) {
  25                 $found++;
  26                 if ($file =~ m<^$TMP/usr/lib/perl5/(\d\.\d{3})/([^/]+)/>) {
  27                         $v = $1;
  28                         $arch = $2;
  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})/>) {
  33                         $v = $1;
  34                         check_module_version ($v, $version);
  35                         $dep_arch = add_deps ($dep_arch, "perl-$v");
  36                 }
  37             }
  38         }
  39
  40         if ($found and not $dep_arch) {
  41                 $dep = "perl5";
  42         } elsif ($dep_arch) {
  43                 $dep = $dep_arch;
  44         }
  45
  46         # Look for perl scripts
  47         my ($ff, $newdep);
  48         foreach $file (split(/\n/,`find $TMP -type f \\( -name "*.pl" -or -perm +111 \\)`)) {
  49                 $ff=`file -b $file`;
  50                 if ($ff =~ /perl/) {
  51                         $newdep = dep_from_script ($file);
  52                         $dep = add_deps ($dep, $newdep) if $newdep;
  53                 }
  54         }
  55
  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`))
  59                 {
  60                         unlink($file);
  61                         # Get the directory name
  62                         while ($file =~ s#/[^/]+$##){
  63                                 last if (not -d $file);
  64                                 last if (not rmdir $file);
  65                         }
  66                 }
  67         }
  68
  69         next unless $dep;
  70
  71         if (-e "debian/$EXT\subtsvars") {
  72                 open (IN, "<debian/$EXT\subtsvars");
  73                 my @lines=grep { ! /^perl:Depends=/ } <IN>;
  74                 close IN;
  75                 open (OUT, ">debian/$EXT\subtsvars");
  76                 print OUT @lines;
  77         } else {
  78                 open (OUT, ">debian/$EXT\subtsvars");
  79         }
  80         print OUT "perl:Depends=$dep\n";
  81         close OUT;
  82 }
  83
  84 sub add_deps {
  85         my ($dep, $new) = @_;
  86
  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|,|$)/);
  93         }
  94
  95         if (not $dep) {
  96                 $dep = $new;
  97         } else {
  98                 $dep .= ", $new" unless ($dep =~ m/(^|\s)$new(\s|,|$)/);
  99         }
 100
 101         return $dep;
 102 }
 103
 104 sub check_module_version {
 105         my ($v1, $v2) = @_;
 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");
 108         }
 109 }
 110
 111 sub dep_from_script {
 112         my $file = shift;
 113         my ($line, $perl, $dep);
 114         open (SCRIPT, "<$file") || die "Can't open $file: $!\n";
 115         $line = <SCRIPT>;
 116         close (SCRIPT);
 117         if ($line =~ m<^#!\s*/usr/bin/(perl\S*)(?:\s+|$)>) {
 118                 $perl = $1;
 119                 if ($perl eq "perl") {
 120                         $dep = "perl5";
 121                 } elsif ($perl eq "perl-thread") {
 122                         $dep = "perl5-thread";
 123                 } elsif ($perl =~ m/^perl-\d\.\d{3}(?:-thread)?$/) {
 124                         $dep = $perl;
 125                 } elsif ($perl =~ m/^perl(\d\.\d{3})(\d\d)$/) {
 126                         # Should never happen but ...
 127                         $dep = "perl-$1 (=$1.$2)";
 128                 }
 129         }
 130         return $dep;
 131 }