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) {
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 = "";
$_ = <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 {