From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 19 Nov 2000 14:56:52 +0000 (+0000)
Subject: debug
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=254103c8cbd117bc3d0c474caa85becd844e2a81;p=infobot.git

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 b1bfb48..077416c 100644
--- 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$/) {