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