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 |
- |
|
|