case

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

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 8a9700c122962e16be452ce6646e4765605d4038..aa0a450ad59a6233eb51709f14a4061422e47d65 100644 (file)
--- 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 faf7ee2ed9e923668feaca091359bf63dd87f5e3..2626b0fefc37644801776abb729a109ed056114e 100644 (file)
--- 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 f4147492caf34a60479c956623d3de04eb0357a8..12ec9c324a2f6729c5381cf2341b602f9da802c5 100644 (file)
--- 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) );
     } );
 }