more babelfish cleanup

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

diff --git a/blootbot/src/Modules/nickometer.pl b/blootbot/src/Modules/nickometer.pl
index 1295ed25f248b9b3d39c47a6d6a48fd8ca5bd556..7ddda540468d78a37d94293de5a2dbda372d7480 100644 (file)
--- a/blootbot/src/Modules/nickometer.pl
+++ b/blootbot/src/Modules/nickometer.pl
@@ -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;