From 2c4a184166d2d21918b4003deb7f099c22932014 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 9 Nov 2006 21:16:32 +0000 Subject: make things more explicit (it helps perl_checker) --- urpm.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'urpm.pm') diff --git a/urpm.pm b/urpm.pm index a1ab7295..7600bcaf 100644 --- a/urpm.pm +++ b/urpm.pm @@ -3146,7 +3146,8 @@ sub find_packages_to_remove { if (($n) = /^(.*)-[^\-]*-[^\-]*$/) { $db->traverse_tag('name', [ $n ], sub { my ($p) = @_; - join('-', ($p->fullname)[0..2]) eq $_ or return; + my ($name, $version, $release) = $p->fullname; + "$name-$version-$release" eq $_ or return; $urpm->resolve_rejected($db, $state, $p, removed => 1, bundle => $options{bundle}); push @m, scalar $p->fullname; $found = 1; @@ -3158,7 +3159,8 @@ sub find_packages_to_remove { if (($n) = /^(.*)-[^\-]*$/) { $db->traverse_tag('name', [ $n ], sub { my ($p) = @_; - join('-', ($p->fullname)[0..1]) eq $_ or return; + my ($name, $version) = $p->fullname; + "$name-$version" eq $_ or return; $urpm->resolve_rejected($db, $state, $p, removed => 1, bundle => $options{bundle}); push @m, scalar $p->fullname; $found = 1; -- cgit v1.2.1