invoke parsehdlist with hdlists names under simple quotes to

prevent from shell crazyness with spaces and parenthesis

1 files changed, 1 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index 0e9848b0..8adabfe9 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -146,7 +146,7 @@ sub do_search($$$$$$) {
 							   gtksignal_connect(new Gtk::Button(but(_("Stop"))),
 									     clicked => sub { $searchstop = 1 }))));
 	    $searchw->sync;
-	    open SF, "parsehdlist --fileswinfo --description --summary @hdlists |";
+	    open SF, 'parsehdlist --fileswinfo --description --summary '.join(' ', map { "\'$_\'" } @hdlists).' |';
 	    my ($pkg, $progresscount);
 	    while (<SF>) {
 		$searchstop and last;