X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=blobdiff_plain;f=common%2Fscripts%2Fgblint.pl;h=afde47c303dff9a59007c67da95e0c35f1fc1ef2;hp=85e5ced376f3c945aa1c2c5c852c7a6a3f2852a6;hb=HEAD;hpb=101f23830f4fcc4a101c287db5b1b750e53a91a8
diff --git a/common/scripts/gblint.pl b/common/scripts/gblint.pl
index 85e5ced..afde47c 100755
--- a/common/scripts/gblint.pl
+++ b/common/scripts/gblint.pl
@@ -235,7 +235,7 @@ while( my $line = <> ) {
# ellipsis
if( $line =~ /(\.\s*\.(\s*\.)?)/ ) { &printError( "ne", $currentSection, $lineNumber, "possible malformed ellipsis", "$1", " or " ); }
- if( $line =~ m{([[:space:]])} || $line =~ m{([[:space:]])} ) { &printError( "ne", $currentSection, $lineNumber, " with extraneous surrounding space", "$1", "" ); }
+ if( $line =~ m{([[:space:]])}) { &printError( "ne", $currentSection, $lineNumber, " with extraneous surrounding space", "$1", "" ); }
if( $line =~ m{([^>])()} ) { &printError( "ne", $currentSection, $lineNumber, "possible used in place of ", "$1$2", "$1" ); }
if( $line =~ m{(>)} ) { &printError( "ne", $currentSection, $lineNumber, "possible used in place of ", "$1", ">" ); }
@@ -283,7 +283,7 @@ while( my $line = <> ) {
if( $line =~ /[^>](CLOSE\sCOMBAT\sSKILL)/ || $line =~ /(CLOSE\s+COMBAT\s+SKILL)[^<]/ ) {
&printError( "ne", $currentSection, $lineNumber, "possible missing markup", "$1", "$1" );
}
- if( $line =~ /[^>](ENDURANCE)/ || $line =~ /(ENDURANCE)[^<]/ ) {
+ if( $line =~ /[^>](ENDURANCE)/ || $line =~ /(ENDURANCE)(?! Points)[^<]/ ) {
&printError( "ne", $currentSection, $lineNumber, "possible missing markup", "ENDURANCE", "ENDURANCE" );
}
if( $line =~ /[^>](WILLPOWER)/ || $line =~ /(WILLPOWER)[^<]/ ) {
@@ -299,7 +299,7 @@ while( my $line = <> ) {
}
##### Others
- if( $line =~ m{