(do_search) fix searching on just names by restoring previous logic (#54339)

got broken in r261170 from 2009-10-01 ("enable to search in full or
short package names (#46473)") which is simpler

1 files changed, 1 insertions, 4 deletions

diff --git a/rpmdrake b/rpmdrake
index 35af41e7..6eeb80c5 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -78,10 +78,7 @@ sub do_search($$$$$$$) {
             if ($NVR_searches->[0]) {
                 next if !/$entry_rx/;
             } else {
-                if (/^([^-]*)-/) {
-                    my $name = $1;
-                    next if /^(.*)-/ and $name !~ /$entry_rx/;
-                }
+                next if first(split_fullname($_)) !~ /$entry_rx/
             }
             push @search_results, $_;
             # FIXME: should be done for all research types