* Merge changes from prposed changes

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

diff --git a/src/Modules/Kernel.pl b/src/Modules/Kernel.pl
index 1a762b886e0176ad6ca1fed03ba32348dd16af77..12ae9d0d6eb53f75aada6ffd213cf42a8837ce94 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.");
@@ -20,8 +20,8 @@ sub Kernel {
     }
 
     if ($::who =~ /^\#/) {
-       &::msg($::who, "No, I won't harass the entire channel."); 
-       return undef;
+       &::msg($::who, "No, I won't harass the entire channel."); 
+       return undef;
     }
 
     foreach $line (@now) {
@@ -37,7 +37,7 @@ sub Kernel {
        $line =~ s/ for 2.4//;
        $line =~ s/ for 2.2//;
        $line =~ s/ is: */: /;
-       $retval .= ", " . $line;
+       $retval .= ', ' . $line;
     }
     &::performStrictReply($retval);
 }
@@ -48,7 +48,7 @@ sub kernelAnnounce {
     my @old;
 
     if (!scalar @now) {
-       &::DEBUG("kA: failure to retrieve.");
+       &::DEBUG('kA: failure to retrieve.');
        return;
     }
 
@@ -96,3 +96,5 @@ sub kernelAnnounce {
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80