X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FSearch.pl;h=d842ae1727e5146c28f8120b931f698644bbc66d;hb=a523737c588a01cf74076ae2a3c06a669389ddcb;hp=0c0e3f32874c02d7127b72c41df07c40fedd5044;hpb=ff2da5e408ead78b25464250c2a967f7849ae20e;p=infobot.git

diff --git a/src/Modules/Search.pl b/src/Modules/Search.pl
index 0c0e3f3..d842ae1 100644
--- a/src/Modules/Search.pl
+++ b/src/Modules/Search.pl
@@ -11,23 +11,23 @@ use strict;
 # Search(keys||vals, str);
 sub Search {
     my ($type, $str) = @_;
-    my $start_time = &main::timeget();
+    my $start_time = &::timeget();
     my @list;
 
     $type =~ s/s$//;	# nice work-around.
 
     if ($type eq "value") {	# search by value.
-	@list = &main::searchTable("factoids", "factoid_key", "factoid_value", $str);
+	@list = &::searchTable("factoids", "factoid_key", "factoid_value", $str);
     } else {			# search by key.
-	@list = &main::searchTable("factoids", "factoid_key", "factoid_key", $str);
+	@list = &::searchTable("factoids", "factoid_key", "factoid_key", $str);
     }
 
-    my $delta_time = sprintf("%.02f", &main::timedelta($start_time) );
-    &main::status("search: took $delta_time sec for query.") if ($delta_time > 0);
+    my $delta_time = sprintf("%.02f", &::timedelta($start_time) );
+    &::status("search: took $delta_time sec for query.") if ($delta_time > 0);
 
     my $prefix = "Factoid search of '\002$str\002' by $type ";
 
-    &main::performStrictReply( &main::formListReply(1, $prefix, @list) );
+    &::performStrictReply( &::formListReply(1, $prefix, @list) );
 }
 
 1;