View | Details | Raw Unified | Return to bug 8235
Collapse All | Expand All

(-)a/debian/list-deps (-2 / +13 lines)
Lines 23-28 use warnings; Link Here
23
23
24
use C4::Installer::PerlDependencies;
24
use C4::Installer::PerlDependencies;
25
25
26
# These are packages that may not be in the apt archive in a way that 
27
# apt-file can find, e.g. in the Koha repo rather than the regular
28
# debian one.
29
my %overrides = (
30
    'CGI::Session::Driver::memcached' => 'libcgi-session-driver-memcached-perl',
31
    'CHI'                             => 'libchi-perl',
32
    'CHI::Driver::Memcached'          => 'libchi-driver-memcached-perl',
33
    'Template::Plugin::HtmlToText'    => 'libtemplate-plugin-htmltotext-perl',
34
);
35
26
my $deps = $C4::Installer::PerlDependencies::PERL_DEPS;
36
my $deps = $C4::Installer::PerlDependencies::PERL_DEPS;
27
37
28
my $prefix = "^/usr/((lib|share)/perl5|(lib|share)/perl/[0-9.]+)";
38
my $prefix = "^/usr/((lib|share)/perl5|(lib|share)/perl/[0-9.]+)";
Lines 31-37 foreach my $module (keys %$deps) { Link Here
31
    my $ver = $deps->{$module}->{'min_ver'};
41
    my $ver = $deps->{$module}->{'min_ver'};
32
    my $subpath = $module;
42
    my $subpath = $module;
33
    $subpath =~ s,::,/,g;
43
    $subpath =~ s,::,/,g;
34
    my $output = 
44
    my $output =
35
        qx(apt-file -l -x search "$prefix/$subpath.pm\$");
45
        qx(apt-file -l -x search "$prefix/$subpath.pm\$");
36
    my @temp = split(/\n/, $output);
46
    my @temp = split(/\n/, $output);
37
    my @lines = ();
47
    my @lines = ();
Lines 64-69 foreach my $module (keys %$deps) { Link Here
64
        # is no reason to be suspicious of this
74
        # is no reason to be suspicious of this
65
        # commit.)
75
        # commit.)
66
        # RM note: suspicious?  me?  always!
76
        # RM note: suspicious?  me?  always!
77
    } elsif (exists $overrides{$module}) {
78
        print "$overrides{$module}\n";
67
    } else {
79
    } else {
68
        print "EEEK: unknown package for $module\n";
80
        print "EEEK: unknown package for $module\n";
69
    }
81
    }
70
- 

Return to bug 8235