#!/usr/bin/perl
#
# Empire - A multi-player, client/server Internet based war game.
-# Copyright (C) 1986-2011, Dave Pare, Jeff Bailey, Thomas Ruschak,
+# Copyright (C) 1986-2013, Dave Pare, Jeff Bailey, Thomas Ruschak,
# Ken Stevens, Steve McClure, Markus Armbruster
#
# Empire is free software: you can redistribute it and/or modify
# ---
#
# findsubj.pl: Find info subjects, update subjects.mk
-#
+#
# Known contributors to this file:
# Ken Stevens (when it was still info.pl)
# Markus Armbruster, 2006-2008
use Errno qw(ENOENT);
-our (%filename, %chapter, %see_also, %sanr);
-our ($filename, %subjfil);
+my (%filename, %chapter, %see_also, %sanr);
+my ($filename, %subjfil);
# Get known subjects
-our @Subjects = split(' ', read_make_var("subjects", "subjects.mk", ""));
+my @Subjects = split(' ', read_make_var("subjects", "subjects.mk", ""));
# Parse the .t files
for my $f (@ARGV) {
open(F, "<$filename")
or die "Can't open $filename: $!";
-
+
$_ = <F>;
if (/^\.TH (\S+) (\S.+\S)$/) {
$chapter{$topic} = $1;