# ---
#
# 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;