From 5e628c50f3a3e10f9e6a4a270143f1a3076296e1 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 26 Feb 2008 14:56:23 +0000 Subject: (do_search) remove leading/trailing spacing in searched word when pasting (#23249) --- rpmdrake | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/rpmdrake b/rpmdrake index b113cf5b..ae3fed2c 100755 --- a/rpmdrake +++ b/rpmdrake @@ -55,6 +55,12 @@ our $statusbar; sub do_search($$$$$$$) { my ($find_entry, $tree, $tree_model, $options, $current_search_type, $urpm, $pkgs) = @_; my $entry = $find_entry->get_text or return; + # remove leading/trailing spacing when pasting: + if ($entry !~ /\S\s\S/) { + # if spacing in middle, likely a string search in description + $entry =~ s/^\s*//; + $entry =~ s/^\s*$//; + } my $entry_rx = eval { qr/$entry/i } or return; my $results_ok = N("Search results"); $options->{delete_category}->($_) foreach $results_ok; -- cgit v1.2.1