mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-05-07 05:26:10 +02:00
pakfire: fix dep resolve at upgrade.
This commit is contained in:
committed by
Arne Fitzenreiter
parent
b47472c186
commit
9f1f68f17a
@@ -2,7 +2,7 @@
|
||||
###############################################################################
|
||||
# #
|
||||
# IPFire.org - A linux based firewall #
|
||||
# Copyright (C) 2007 Michael Tremer & Christian Schmidt #
|
||||
# Copyright (C) 2007-2015 IPFire Team <info@ipfire.org> #
|
||||
# #
|
||||
# This program is free software: you can redistribute it and/or modify #
|
||||
# it under the terms of the GNU General Public License as published by #
|
||||
@@ -589,6 +589,25 @@ sub resolvedeps {
|
||||
return @all;
|
||||
}
|
||||
|
||||
sub resolvedeps_recursive {
|
||||
my @packages = shift;
|
||||
my @result = ();
|
||||
|
||||
foreach my $pkg (@packages) {
|
||||
my @deps = &Pakfire::resolvedeps($pkg);
|
||||
|
||||
foreach my $dep (@deps) {
|
||||
push(@result, $dep);
|
||||
}
|
||||
}
|
||||
|
||||
# Sort the result array and remove dupes
|
||||
my %sort = map{ $_, 1 } @result;
|
||||
@result = keys %sort;
|
||||
|
||||
return @result;
|
||||
}
|
||||
|
||||
sub cleanup {
|
||||
my $dir = shift;
|
||||
my $path;
|
||||
|
||||
Reference in New Issue
Block a user