(do_search) allow using regexp in searches (Vincent Panel, #27198)

1 files changed, 1 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index 142105c5..381d1bd2 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -532,7 +532,7 @@ my $db = open_db();
 
 sub do_search($$$$$$$) {
     my ($find_entry, $tree, $tree_model, $options, $current_search_type, $urpm, $pkgs) = @_;
-    my $entry = quotemeta $find_entry->get_text or return;
+    my $entry = $find_entry->get_text or return;
     my $entry_rx = eval { qr/$entry/i } or return;
     my ($results_ok, $results_none) = (N("Search results"), N("Search results (none)"));
     $options->{delete_category}->($_) foreach $results_ok, $results_none;