From fd5a85639ebacde85fc08be4ada40a38db951e6d Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 17 Jan 2005 14:03:00 +0000 Subject: Fix strange regexp --- rpmdrake | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rpmdrake b/rpmdrake index 8abc5601..cf470e82 100755 --- a/rpmdrake +++ b/rpmdrake @@ -599,7 +599,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/ } @elems; } } } -- cgit v1.2.1