debug

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

diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl
index b1bfb48558231a374b4db350ea627dbe4359608d..077416c4c9bbc82dd0a3c984810833b84857e8a8 100644 (file)
--- a/src/Modules/Debian.pl
+++ b/src/Modules/Debian.pl
@@ -162,7 +162,7 @@ sub searchContents {
     ### larne's regex.
     # $query = $query.'(\.so\.)?([.[[:digit:]]+\.]+)?$';
 
-    $query =~ s/\\([\^\$])/$1/g;
+    $query =~ s/\\([\^\$])/$1/g;       # hrm?
     $query =~ s/^\s+|\s+$//g;
     $query =~ s/\*/\\S*/g;             # does it even work?
 
@@ -205,6 +205,7 @@ sub searchContents {
 
     my $files = join(' ', @files);
 
+    &main::status("search regex => '$search'.");
     open(IN,"zegrep -h '$search' $files |");
     while (<IN>) {
        if (/^\.?\/?(.*?)[\t\s]+(\S+)\n$/) {