take a few more things literally

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

diff --git a/src/Modules/nickometer.pl b/src/Modules/nickometer.pl
index 261c99727818084ed2e1ab01656cc2ea59da13ef..6fe7fd094efe3eeb059958cf45b4a490ed4a21b7 100644 (file)
--- a/src/Modules/nickometer.pl
+++ b/src/Modules/nickometer.pl
@@ -46,12 +46,11 @@ sub query {
     ### TODO: compact with map?
     my @list;
     foreach (sort {$b <=> $a} keys %nickometer) {
-      my $str = join(", ", sort keys %{ $nickometer{$_} });
+      my $str = join(', ', sort keys %{ $nickometer{$_} });
       push(@list, "$str ($_%)");
     }
 
     &::performStrictReply( &::formListReply(0, "Nickometer list for $term ", @list) );
-    &::DEBUG("test.");
 
     return;
   }
@@ -59,7 +58,7 @@ sub query {
   my $percentage = &nickometer($term);
 
   if ($percentage =~ /NaN/) {
-    $percentage = "off the scale";
+    $percentage = 'off the scale';
   } else {
     $percentage = sprintf("%0.4f", $percentage);
     $percentage =~ s/(\.\d+)0+$/$1/;
@@ -144,7 +143,7 @@ sub nickometer ($) {
         $text =~ s/^([^\[\]]*) (\[) (.*) (\]) ([^\[\]]*) $/$1$3$5/x)
   {
     print "Removed $2$4 outside parentheses; nick now $_\n" if $verbose;
-    &punish(15, "brackets");
+    &punish(15, 'brackets');
   }
   my $parentheses = $text =~ tr/(){}[]/(){}[]/;
   &punish(&slow_pow(10, $parentheses),