diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-11 14:00:23 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-11 14:00:23 +0000 |
commit | 805733388ae7f658bb935a3b6b760885564f3af0 (patch) | |
tree | 83ad3787ae40018f4b6596a2884fa5e4d00fe321 | |
parent | 76f0db213addc92c1c73a447b9d35151c502042a (diff) | |
download | perl-URPM-805733388ae7f658bb935a3b6b760885564f3af0.tar perl-URPM-805733388ae7f658bb935a3b6b760885564f3af0.tar.gz perl-URPM-805733388ae7f658bb935a3b6b760885564f3af0.tar.bz2 perl-URPM-805733388ae7f658bb935a3b6b760885564f3af0.tar.xz perl-URPM-805733388ae7f658bb935a3b6b760885564f3af0.zip |
define var where it's needed
-rw-r--r-- | URPM/Resolve.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index c67083f..c647a7a 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -549,7 +549,7 @@ sub resolve_requested { #- nodeps : sub resolve_requested__no_suggests { my ($urpm, $db, $state, $requested, %options) = @_; - my ($dep, @diff_provides, @properties, @selected); + my (@diff_provides, @properties, @selected); #- populate properties with backtrack informations. while (my ($r, $v) = each %$requested) { @@ -570,7 +570,7 @@ sub resolve_requested__no_suggests { #- package present or by a new package to upgrade), then requires not satisfied and #- finally conflicts that will force a new upgrade or a remove. do { - while (defined ($dep = shift @properties)) { + while (defined (my $dep = shift @properties)) { #- in case of keep_unrequested_dependencies option is not set, we need to avoid #- selecting packages if the source has been disabled. if (exists $dep->{from} && !$options{keep_unrequested_dependencies}) { |