regex support for 'query' in &searchDesc()

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@290 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl
index 2701e0385ef0dc5650e80018c1fc90921c7a79c0..21c92150231e8b3e67d0b82cb55dcc8e938037b4 100644 (file)
--- a/src/Modules/Debian.pl
+++ b/src/Modules/Debian.pl
@@ -450,6 +450,7 @@ sub searchDesc {
 
     my (%desc, $package);
     open(IN,"zegrep -h '^Package|^Description' $files |");
 
     my (%desc, $package);
     open(IN,"zegrep -h '^Package|^Description' $files |");

+    $query =~ s/\*/\\S*/g;     # regex.

     while (<IN>) {
        if (/^Package: (\S+)$/) {
            $package = $1;
     while (<IN>) {
        if (/^Package: (\S+)$/) {
            $package = $1;