take a few more things literally

[infobot.git] / src / Modules / Kernel.pl

diff --git a/src/Modules/Kernel.pl b/src/Modules/Kernel.pl
index 45c1190751657efce5f5fca70f7cf258ecd9bf8f..2b0ba90fac227275f8e032829af47cae066c5751 100644 (file)
--- a/src/Modules/Kernel.pl
+++ b/src/Modules/Kernel.pl
@@ -12,7 +12,7 @@ sub kernelGetInfo {
 }
 
 sub Kernel {
-    my $retval = "Linux kernel versions";
+    my $retval = 'Linux kernel versions';
     my @now = &kernelGetInfo();
     if (!scalar @now) {
        &::msg($::who, "failed.");
@@ -32,7 +32,7 @@ sub Kernel {
        $line =~ s/ for 2.4//;
        $line =~ s/ for 2.2//;
        $line =~ s/ is: */: /;
-       $retval .= ", " . $line;
+       $retval .= ', ' . $line;
     }
     &::performStrictReply($retval);
 }
@@ -43,7 +43,7 @@ sub kernelAnnounce {
     my @old;
 
     if (!scalar @now) {
-       &::DEBUG("kA: failure to retrieve.");
+       &::DEBUG('kA: failure to retrieve.');
        return;
     }