- # Remove .packlist files and eventually some empty directories
- if (not $dh{'K_FLAG'}) {
- foreach $file (split(/\n/,`find $tmp -type f -name .packlist`))
- {
- unlink($file);
- # Get the directory name
- while ($file =~ s#/[^/]+$##){
- last if (not -d $file);
- last if (not rmdir $file);
- }
- }
- }
-
- next unless $dep;
-
- if (-e "debian/${ext}substvars") {
- open (IN, "<debian/${ext}substvars");
- my @lines=grep { ! /^perl:Depends=/ } <IN>;
- close IN;
- open (OUT, ">debian/${ext}substvars");
- print OUT @lines;
- } else {
- open (OUT, ">debian/${ext}substvars");
- }
- print OUT "perl:Depends=$dep\n";
- close OUT;
-}
-
-sub add_deps {
- my ($dep, $new) = @_;
-
- # If the $new-base package can exist then add $perlext to $new
- $new = "$new$perlext" if ($new =~ m/^(?:perl5|perl-\d\.\d+)$/);
-
- # If $new = perl5 or perl5-thread check if perl-X.XXX(-thread)?
- # is not already in the dependencies
- if ($new eq "perl5") {
- return $dep if ($dep =~ m/(^|\s)perl-5\.\d+(\s|,|$)/);
- } elsif ($new eq "perl5-thread") {
- return $dep if ($dep =~ m/(^|\s)perl-5\.\d+-thread(\s|,|$)/);
- }
-
- if (not $dep) {
- $dep = $new;
- } else {
- $dep .= ", $new" unless ($dep =~ m/(^|\s)$new(\s|,|$)/);
- }
-
- return $dep;
-}
-
-sub check_module_version {
- my ($v1, $v2) = @_;
- unless ($v1 eq $v2) {
- warning("A module has been found in perl-$v1 arch directory. But perl-$v2 is the perl currently used ...\n");
- }
-}
-
-sub dep_from_script {
- my $file = shift;
- my ($line, $perl, $dep);
- open (SCRIPT, "<$file") || die "Can't open $file: $!\n";
- $line = <SCRIPT>;
- close (SCRIPT);
- if ($line =~ m<^#!\s*/usr/bin/(perl\S*)(?:\s+|$)>) {
- $perl = $1;
- if ($perl eq "perl") {
- $dep = "perl5";
- } elsif ($perl eq "perl-thread") {
- $dep = "perl5-thread";
- } elsif ($perl =~ m/^perl-\d\.\d+(?:-thread)?$/) {
- $dep = $perl;
- } elsif ($perl =~ m/^perl(\d\.\d+)(\d\d)$/) {
- # Should never happen but ...
- $dep = "perl-$1 (=$1.$2)";
+ # MakeMaker always makes lib and share dirs, but typically
+ # only one directory is installed into.
+ foreach my $dir ("$tmp/usr/share/perl5", "$tmp/usr/lib/perl5") {
+ if (-d $dir) {
+ doit("rmdir", "--ignore-fail-on-non-empty", "--parents",
+ "$dir");