# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1327689615 -7200
# Node ID c03535678aee3b88977533fdc0640b73a9cb09ba
# Parent  84e762667995f3326a5123c6146c29fbcde7d1e6
Cleanups.

diff -r 84e762667995 -r c03535678aee log2template.pl
--- a/log2template.pl	Fri Jan 27 20:40:05 2012 +0200
+++ b/log2template.pl	Fri Jan 27 20:40:15 2012 +0200
@@ -46,7 +46,7 @@
 
 # Define the various spell chant prefixes here, we need them
 # for matching the spell cast lines themselves.
-my @spellchants = (
+my @spellChants = (
 "claps its hands and says",
 "claps his hands and whispers",
 "fills up his cheeks with air and exhales",
@@ -164,7 +164,7 @@
   my $nline = 0;
   my $filename = $opt_locpath."/".$continent.".loc";
 
-  open(INFILE, '<', $filename) or die("Could not open locfile '$filename'.\n");
+  open(INFILE, '<', $filename) or print(STDERR "Could not open locfile '$filename'.\n");
   while (defined(my $line = <INFILE>)) {
     $nline++;
     chomp($line);
@@ -203,7 +203,7 @@
 
 
 ### Convert spellchants array to regexp
-my $spellregexps = join("|", map { s/ (his|its|her) / ... /g; $_ } @spellchants);
+my $spellregexps = join("|", map { s/ (his|its|her) / ... /g; $_ } @spellChants);
 
 
 ### Change parsing state