From: Jonathan Blake <jonathan.blake@projectaon.org>
Date: Mon, 13 Apr 2015 17:41:55 +0000 (+0000)
Subject: fixing condition in gblint.pl that leads to undefined section; adding sections found... 
X-Git-Tag: 20150414~3
X-Git-Url: http://git.projectaon.org/?a=commitdiff_plain;h=94b200d4710f6ffb5e3bb7aa622fa82be39be177;p=project-aon.git

fixing condition in gblint.pl that leads to undefined section; adding sections found in Freeway Warrior series

git-svn-id: https://projectaon.org/data/trunk@2442 f6f3e2d7-ff33-0410-aaf5-b4bee2cdac11
---

diff --git a/common/scripts/gblint.pl b/common/scripts/gblint.pl
index c824503..0caf1b4 100755
--- a/common/scripts/gblint.pl
+++ b/common/scripts/gblint.pl
@@ -70,6 +70,13 @@ my %sectionDocLookup = (
   'howcarry' => 'equipmnt',
   'howmuch'  => 'equipmnt',
   'howuse'   => 'equipmnt',
+  'backpack' => 'equipmnt',
+  'ammpouch' => 'equipmnt',
+  'medikit'  => 'equipmnt',
+  'canteen'  => 'equipmnt',
+  'weapons'  => 'weapons',
+  'close'    => 'weapons',
+  'missile'  => 'weapons',
   'cmbtrulz' => 'cmbtrulz',
   'evasion'  => 'cmbtrulz',
   'lorecrcl' => 'lorecrcl',
@@ -170,7 +177,7 @@ while( $#ARGV > -1 && $ARGV[ 0 ] =~ /^-/ ) {
 }
 
 my $lineNumber = 1;
-my $currentSection = "_unknown";
+my $currentSection = '';
 
 while( my $line = <> ) {
   my @section = ( $line =~ /<section[^>]+id="([^"]*)"/g );
@@ -182,6 +189,7 @@ while( my $line = <> ) {
     else {
       $currentSection = $sectionDocLookup{$section[ 0 ]};
     }
+    $currentSection = '_unknown' unless defined $currentSection;
   }
 
   if( $skipLines >= $lineNumber ) {