Small optimization, that will also probably work around bug #19356

1 files changed, 1 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index badc838a..52047eef 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -675,7 +675,7 @@ or you already installed all of them."));
 		} else {
 		    #- special case, we don't populate all the tree at first (to speed things up)
 		    %elems = ();
-		    foreach my $root (sort { $a cmp $b } uniq(map { ($_->[1] =~ /([^\|]+)\|?/)[0] } @elems)) {
+		    foreach my $root (sort { $a cmp $b } uniq(map { (split /\|/, $_->[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\b/ } @elems;