Compare commits
1 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| c17228fc05 |
@@ -70,17 +70,19 @@ sub calculate_missing {
|
|||||||
# Getting the package dependencies and the installed packages
|
# Getting the package dependencies and the installed packages
|
||||||
say "[$package] Getting the package dependencies and the installed packages";
|
say "[$package] Getting the package dependencies and the installed packages";
|
||||||
my @dependencies = package_deps( $package, $depth, 1 );
|
my @dependencies = package_deps( $package, $depth, 1 );
|
||||||
my %install_dependencies = map { $_ => 1 } @dependencies;
|
|
||||||
# Look for any virtuals and remove its immediate dependencies to avoid
|
# XXX: Endless loop as for now.
|
||||||
# installing multiple conflicting packages one by one
|
# my %install_dependencies = map { $_ => 1 } @dependencies;
|
||||||
my @virtual_deps;
|
# # Look for any virtuals and remove its immediate dependencies to avoid
|
||||||
for my $dep (@dependencies) {
|
# # installing multiple conflicting packages one by one
|
||||||
push(@virtual_deps, package_deps( $dep, 1, 1 )) if ( $dep =~ /^virtual\// );
|
# my @virtual_deps;
|
||||||
}
|
# for my $dep (@dependencies) {
|
||||||
for my $dep (@virtual_deps) {
|
# push(@virtual_deps, package_deps( $dep, 1, 1 )) if ( $dep =~ /^virtual\// );
|
||||||
$install_dependencies{$dep} = 0 if ( $dep !~ /^virtual\// );
|
# }
|
||||||
}
|
# for my $dep (@virtual_deps) {
|
||||||
@dependencies = grep { $install_dependencies{$_} } @dependencies;
|
# $install_dependencies{$dep} = 0 if ( $dep !~ /^virtual\// );
|
||||||
|
# }
|
||||||
|
# @dependencies = grep { $install_dependencies{$_} } @dependencies;
|
||||||
|
|
||||||
#taking only the 4th column of output as key of the hashmap
|
#taking only the 4th column of output as key of the hashmap
|
||||||
my %installed_packs =
|
my %installed_packs =
|
||||||
|
|||||||
Reference in New Issue
Block a user