Clean up some trailing whitespace

[empserver] / info / findsubj.pl

diff --git a/info/findsubj.pl b/info/findsubj.pl
index 7abc7a4cf6944c43aae40f9c5242a220b38b8eb0..6627518909b6da738bfe5f47316c17b530fa73b5 100644 (file)
--- a/info/findsubj.pl
+++ b/info/findsubj.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 #   Empire - A multi-player, client/server Internet based war game.
-#   Copyright (C) 1986-2012, 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
@@ -26,7 +26,7 @@
 #   ---
 #
 #   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
@@ -63,11 +63,11 @@ use warnings;
 
 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) {
@@ -140,7 +140,7 @@ sub parse_file {
 
     open(F, "<$filename")
        or die "Can't open $filename: $!";
-  
+
     $_ = <F>;
     if (/^\.TH (\S+) (\S.+\S)$/) {
        $chapter{$topic} = $1;