From 1b1f50d75a7566f33aaffcd2484720314226c659 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 10 Feb 2005 19:58:17 +0000 Subject: Fix bug 13531: Lots of group names do not expand in rpmdrake, view by group --- rpmdrake | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rpmdrake b/rpmdrake index ca64f825..00438ecd 100755 --- a/rpmdrake +++ b/rpmdrake @@ -557,7 +557,7 @@ or you already installed all of them.")); foreach my $root (sort { $a cmp $b } uniq(map { ($_->[1] =~ /([^\|]+)\|?/)[0] } @elems)) { $add_node->('', $root); @{$elems{$root}} = sort { $a->[1] cmp $b->[1] || uc($a->[0]) cmp uc($b->[0]) } - grep { $_->[1] =~ /^\Q$root|\E/ } @elems; + grep { $_->[1] =~ /^\Q$root\E\b/ } @elems; } } } -- cgit v1.2.1