diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-03-03 09:37:21 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-03-03 09:37:21 +0000 |
| commit | 113322fe8bcf633406fdf5eb30b1774a6e82bfe0 (patch) | |
| tree | c9c83918b6e4e0f8cc81558ff64f87e1aa97b06b | |
| parent | 4a341ff14d70da1f9a880d1e16557e935f2637e9 (diff) | |
| download | perl-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.pm | 6 |
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 |