From 113322fe8bcf633406fdf5eb30b1774a6e82bfe0 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 3 Mar 2005 09:37:21 +0000 Subject: Speed optimisation for updating media --- URPM/Build.pm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'URPM') 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 -- cgit v1.2.1