fix plug announce too

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

diff --git a/src/Modules/nickometer.pl b/src/Modules/nickometer.pl
index 567c8706ff929e40d970d158a957c8d038538d3f..7ddda540468d78a37d94293de5a2dbda372d7480 100644 (file)
--- a/src/Modules/nickometer.pl
+++ b/src/Modules/nickometer.pl
@@ -10,7 +10,7 @@
 
 use strict;
 
-my $pi         = 3.1415;
+my $pi         = 3.14159265;
 my $score      = 0;
 my $verbose    = 0;
 
@@ -77,12 +77,13 @@ sub nickometer ($) {
     $1
    /egx;
 
-  # Remove balanced brackets and punish for unmatched
+  # Remove balanced brackets (and punish a little bit) and punish for unmatched
   while (s/^([^()]*)   (\() (.*) (\)) ([^()]*)   $/$1$3$5/x ||
         s/^([^{}]*)   (\{) (.*) (\}) ([^{}]*)   $/$1$3$5/x ||
         s/^([^\[\]]*) (\[) (.*) (\]) ([^\[\]]*) $/$1$3$5/x)
   {
     print "Removed $2$4 outside parentheses; nick now $_\n" if $verbose;
+    &punish(15, "brackets");
   }
   my $parentheses = tr/(){}[]/(){}[]/;
   &punish(&slow_pow(10, $parentheses),
@@ -131,6 +132,9 @@ sub nickometer ($) {
   my $caps = tr/A-Z/A-Z/;
   &punish(&slow_pow(7, $caps), "$caps extraneous caps") if $caps;
 
+  # One and only one trailing underscore is OK.
+  s/\_$//;
+
   # Now punish anything that's left
   my $remains = $_;
   $remains =~ tr/a-zA-Z0-9//d;