New info Hvy-Plastic

[empserver] / info / checklist.pl

diff --git a/info/checklist.pl b/info/checklist.pl
index 7a2471dcb8ed1444916c92931e025842d4bff613..fc823d76f7a8872d6a0dbcce786601ed229a2574 100644 (file)
--- a/info/checklist.pl
+++ b/info/checklist.pl
@@ -4,6 +4,8 @@
 #
 # By Ken Stevens <children@empire.net>
 #
+# FIXME This does not work at the moment
+#
 # HOW TO RUN IT:
 # In empire, redirect the output of the player "list" command to a file called
 # "player.list".  Similarly, make a file listing deity commands and call it
@@ -11,6 +13,11 @@
 # to check which Empire commands need to be documented.
 #
 
+use strict;
+use warnings;
+
+my ($com, @list, @obsolete, @Commands);
+
 open(LIST, "<player.list") || die "Can't read player.list\n";
 
 while(<LIST>) {
@@ -60,10 +67,10 @@ while (<LS>) {
 close LS;
 
 print "In list but not Commands:\n";
-for $l (@list) {
+for my $l (@list) {
   print "  $l\n" unless grep (/^$l$/, @Commands);
 }
 print "In Commands but not list:\n";
-for $c (@Commands) {
+for my $c (@Commands) {
   print "  $c\n" unless grep(/^$c$/, @list) || grep(/^$c$/, @obsolete);
 }