changeset 175:686af99d677a misc

More fixes.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 07 Jan 2011 14:30:47 +0000
parents f805996bfb4a
children d31f4ac58935
files log2npctemplate.pl
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/log2npctemplate.pl	Fri Jan 07 14:21:01 2011 +0000
+++ b/log2npctemplate.pl	Fri Jan 07 14:30:47 2011 +0000
@@ -87,10 +87,10 @@
   $s =~ s/\e\[?.*?[\@-~]//g if ($opt_ansi);
 
   if
-  ($s =~ /^([A-Za-z][A-Za-z\ -]+?)\ ($spellregexps)\ \(([a-z][a-z\ ]+)\)/o)
+  ($s =~ /^([A-Za-z][A-Za-z\ -]+?)\ ($spellregexps)\ \(([A-Za-z][A-Za-z\ ]+)\)/o)
   {
     # Grab cast spells
-    $spells{$1}{$line} = $3;
+    $spells{$1}{$line} = lc($3);
   } elsif ($s =~ /\| \d\d:\d\d +(\d+): (.+?) +\|$/) {
     # Grab exp worth
     my $exp = $1;