From 22dd6f030aa19695c39839d01c9511fccd7dab7f Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 7 Jun 2005 21:59:22 +0000
Subject: [PATCH] case

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1228 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/IRC/Schedulers.pl | 2 +-
 src/Modules/Debian.pl | 4 ++--
 src/UserExtra.pl      | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 8a9700c..aa0a450 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -908,7 +908,7 @@ sub kernelLoop {
     my @chans = &ChanConfList("kernelAnnounce");
     return unless (scalar @chans);
 
-    &Forker("kernel", sub {
+    &Forker("Kernel", sub {
 	my @data = &Kernel::kernelAnnounce();
 
 	foreach (@chans) {
diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl
index faf7ee2..2626b0f 100644
--- a/src/Modules/Debian.pl
+++ b/src/Modules/Debian.pl
@@ -1077,10 +1077,10 @@ sub DebianFind {
     my @results = sort &searchPackage($str);
 
     if (!scalar @results) {
-	&::Forker("debian", sub { &searchContents($str); } );
+	&::Forker("Debian", sub { &searchContents($str); } );
     } elsif (scalar @results == 1) {
 	&::status("searchPackage returned one result; getting info of package instead!");
-	&::Forker("debian", sub { &infoPackages("info", "$results[0] $dist"); } );
+	&::Forker("Debian", sub { &infoPackages("info", "$results[0] $dist"); } );
     } else {
 	my $prefix = "Debian Package Listing of '$query' ";
 	&::performStrictReply( &::formListReply(0, $prefix, @results) );
diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index f414749..12ec9c3 100644
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -184,7 +184,7 @@ sub factinfo {
 sub factstats {
     my $type = shift(@_);
 
-    &Forker("factoids", sub {
+    &Forker("Factoids", sub {
 	&performStrictReply( &CmdFactStats($type) );
     } );
 }
-- 
2.39.2