aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-03 09:37:21 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-03 09:37:21 +0000
commit113322fe8bcf633406fdf5eb30b1774a6e82bfe0 (patch)
treec9c83918b6e4e0f8cc81558ff64f87e1aa97b06b
parent4a341ff14d70da1f9a880d1e16557e935f2637e9 (diff)
downloadperl-URPM-113322fe8bcf633406fdf5eb30b1774a6e82bfe0.tar
perl-URPM-113322fe8bcf633406fdf5eb30b1774a6e82bfe0.tar.gz
perl-URPM-113322fe8bcf633406fdf5eb30b1774a6e82bfe0.tar.bz2
perl-URPM-113322fe8bcf633406fdf5eb30b1774a6e82bfe0.tar.xz
perl-URPM-113322fe8bcf633406fdf5eb30b1774a6e82bfe0.zip
Speed optimisation for updating media
-rw-r--r--URPM/Build.pm6
1 files changed, 2 insertions, 4 deletions
diff --git a/URPM/Build.pm b/URPM/Build.pm
index 0b945b7..7b7fe8d 100644
--- a/URPM/Build.pm
+++ b/URPM/Build.pm
@@ -109,10 +109,8 @@ sub parse_rpms_build_headers {
#- allow rereading of hdlist and clean.
sub unresolved_provides_clean {
my ($urpm) = @_;
- my @potentially_unresolved = keys %{$urpm->{provides} || {}};
-
- @$urpm{qw(depslist provides)} = ([], {});
- @{$urpm->{provides}}{@potentially_unresolved} = ();
+ $urpm->{depslist} = [];
+ $urpm->{provides}{$_} = undef for keys %{$urpm->{provides} || {}};
}
#- read a list of headers (typically when building an hdlist when provides have