empire/empserver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Replace 'our' by 'my' in Perl scripts

Browse source
This commit is contained in:
Markus Armbruster 2013-03-29 19:51:56 +01:00
parent 37990f98b2
commit f66a28079b
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
info/findsubj.pl
View file

@ -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) {

8
info/mksubj.pl
View file

@ -42,9 +42,9 @@ use warnings;
use File::stat;
# The chapters, in order
our @Chapters = qw/Introduction Concept Command Server/;
my @Chapters = qw/Introduction Concept Command Server/;
our $filename;
my $filename;
my (%subject, %level, %desc, %long);
my $largest = "";
@ -137,8 +137,8 @@ sub parse_file {
$_ = <F>;
if (/^\.LV (\S+)$/) {
if ($1 ne 'Basic' && $1 ne 'Expert') {
error("The argument to .LV was '$1' but it must be either 'Basic' or 'Expert'");
if ($1 ne 'Basic' && $1 ne 'Expert' && $1 ne 'Obsolete') {
error("The argument to .LV was '$1' but it must be either 'Basic', 'Expert', or 'Obsolete'");
}
$lvl = $1;
} else {