From f66a28079bc456f25f01244478fec77165d3ee80 Mon Sep 17 00:00:00 2001 From: Markus Armbruster Date: Fri, 29 Mar 2013 19:51:56 +0100 Subject: [PATCH] Replace 'our' by 'my' in Perl scripts --- info/findsubj.pl | 6 +++--- info/mksubj.pl | 8 ++++---- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/info/findsubj.pl b/info/findsubj.pl index 9197cb21d..bbbd6f8aa 100644 --- a/info/findsubj.pl +++ b/info/findsubj.pl @@ -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) { diff --git a/info/mksubj.pl b/info/mksubj.pl index e736ceb9d..deb620e84 100644 --- a/info/mksubj.pl +++ b/info/mksubj.pl @@ -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 { $_ = ; 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 { -- 2.43.0