From 78293c0c38939d3a1f28f486bc8d18377750dded Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 9 Mar 2004 21:56:29 +0000
Subject: [PATCH] [] and _ update from joshua_

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@917 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Modules/nickometer.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Modules/nickometer.pl b/src/Modules/nickometer.pl
index 1295ed2..7ddda54 100644
--- a/src/Modules/nickometer.pl
+++ b/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;
-- 
2.39.2