Fix bug 13531: Lots of group names do not expand in rpmdrake, view by group

1 files changed, 1 insertions, 1 deletions

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;
 		    }
 		}
 	    }