@@ -59,9 +59,9 @@ for my $file (glob "src/cmd/*.cc") { foreach my $format (@format) { my $priority = 50; if ($format =~ /^(.*)\s+[(](\d+)[)]\s*$/) { - chomp $1; $format = $1; $priority = $2; + chomp $format; } print OUT "\tFORMAT($priority, \"$format\")\n"; } tools/parse-commands.pl 31482ab5436aeba816a8fdd4e7602784b7bb3b52 c43169a9420039b4289098d1ab8a68dfbe1adfbf Sean Middleditch sean@mojodo.com http://github.com/elanthis/sourcemud/commit/5adac29e5d83a398a615cb96d761e8785085a6a5 5adac29e5d83a398a615cb96d761e8785085a6a5 2009-04-27T16:22:49-07:00 2009-04-27T16:22:49-07:00 Merge branch 'master' of /home/elanthis/sourcemud Conflicts: src/mud/mail.cc 31c6d47f313c7d9e49e0be35feb6c041bd9e8fbb Sean Middleditch sean@mojodo.com