From 4a478d8369df2ddc6012970be1ffcd4eccbcd2bd Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 24 Oct 2005 12:55:52 +0000
Subject: Small optimization, that will also probably work around bug #19356

---
 rpmdrake | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
cgit v1.2.1