diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-08-02 00:03:20 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-08-02 00:03:20 +0000 |
| commit | 17a0eb83d851331bad1e2c1185d1751910197846 (patch) | |
| tree | e237a3e1fce1e8a7a7f1c3d48e52bf04aa6bc39c /URPM/Resolve.pm | |
| parent | c1e1c394c9f708066aa5b39d02c9ae0be7dcfaf0 (diff) | |
| download | perl-URPM-17a0eb83d851331bad1e2c1185d1751910197846.tar perl-URPM-17a0eb83d851331bad1e2c1185d1751910197846.tar.gz perl-URPM-17a0eb83d851331bad1e2c1185d1751910197846.tar.bz2 perl-URPM-17a0eb83d851331bad1e2c1185d1751910197846.tar.xz perl-URPM-17a0eb83d851331bad1e2c1185d1751910197846.zip | |
Make perl_checker a bit more happy
Diffstat (limited to 'URPM/Resolve.pm')
| -rw-r--r-- | URPM/Resolve.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 616206c..b222aca 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -444,7 +444,7 @@ sub resolve_requested { exists $dep->{from} ? (from => $dep->{from}) : @{[]}, exists $dep->{requested} ? (requested => $dep->{requested}) : @{[]}, } - } grep { ref } $options{callback_choices}->($urpm, $db, $state, \@chosen); + } grep { ref $_ } $options{callback_choices}->($urpm, $db, $state, \@chosen); next; #- always redo according to choices. } @@ -908,8 +908,8 @@ sub compute_flags { my @regex; #- unless a regular expression is given, search in provides - for my $name (@$val) { - if ($name =~ m{^/(.*)/$}) { + foreach my $name (@$val) { + if ($name =~ m,^/(.*)/$,) { push @regex, $1; } else { foreach (keys %{$urpm->{provides}{$name} || {}}) { @@ -1169,7 +1169,7 @@ sub build_transaction_set { #- compatiblity method which are going to be removed. sub resolve_closure_ask_remove { - my ($urpm, $db, $state, $pkg, $from, $why, $avoided) = @_; + my ($urpm, $db, $state, $pkg, $from, $why) = @_; print STDERR "calling obsoleted method URPM::resolve_closure_ask_remove\n"; |