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

(-)a/debian/list-deps (-4 / +12 lines)
Lines 38-60 my $deps = $C4::Installer::PerlDependencies::PERL_DEPS; Link Here
38
38
39
my $prefix = "^/usr/((lib|share)/perl5|(lib|share)/perl/[0-9.]+)";
39
my $prefix = "^/usr/((lib|share)/perl5|(lib|share)/perl/[0-9.]+)";
40
40
41
41
foreach my $module ( keys %$deps ) {
42
foreach my $module ( keys %$deps ) {
42
    next if $ignore{$module};
43
    next if $ignore{$module};
44
43
    my $ver     = $deps->{$module}->{'min_ver'};
45
    my $ver     = $deps->{$module}->{'min_ver'};
44
    my $subpath = $module;
46
    my $subpath = $module;
45
    $subpath =~ s,::,/,g;
47
    $subpath =~ s,::,/,g;
46
    my $output = qx(apt-file -l -x search "$prefix/$subpath.pm\$");
48
    my $output = qx(apt-file -l -x search "$prefix/$subpath.pm\$");
49
47
    my @temp   = split( /\n/, $output );
50
    my @temp   = split( /\n/, $output );
48
    my @lines  = ();
51
    my @lines  = ();
49
52
50
    # Remove packages that are required/essential and always installed on
53
    # Remove packages that are required/essential and always installed on
51
    # a Debian system. Debian packages should not have unversioned
54
    # a Debian system. Debian packages should not have unversioned
52
    # dependencies on such packages.
55
    # dependencies on such packages.
53
    foreach my $line (@temp) {
56
54
        if ( $line ne "perl-base" ) {
57
    #skip if module if its already satisfied by a base perl module
58
    my @skip   = grep(   /^perl-base$|^perl-modules$|^perl$/, @temp);
59
    next if scalar @skip > 0 ;
60
61
    # or else, add that module
62
    my @temp2   = grep(   !/^perl-base$|^perl-modules$|^perl$/, @temp);
63
    foreach my $line (@temp2) {
55
            @lines = ( @lines, $line );
64
            @lines = ( @lines, $line );
56
        }
57
    }
65
    }
66
58
    if ( scalar(@lines) == 1 && $lines[0] ne "" ) {
67
    if ( scalar(@lines) == 1 && $lines[0] ne "" ) {
59
        my $pkg = $lines[0];
68
        my $pkg = $lines[0];
60
        print "$pkg\n";
69
        print "$pkg\n";
61
- 

Return to bug 9927