Mercurial > hg > batmud > misc

changeset 231:c03535678aee misc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cleanups.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 27 Jan 2012 20:40:15 +0200
parents 84e762667995
children 7745b79f5e1f
files log2template.pl
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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