X-Git-Url: http://git.projectaon.org/?a=blobdiff_plain;f=common%2Fscripts%2Fgblint.pl;h=827a561bb004bcff2a09c8dc14cc768d9dfab483;hb=a827b85d77b78f7bad3f3ad05ac215fac3ad9209;hp=0caf1b49fce103e41e54eaadf6d5256ee0e77eee;hpb=94b200d4710f6ffb5e3bb7aa622fa82be39be177;p=project-aon.git
diff --git a/common/scripts/gblint.pl b/common/scripts/gblint.pl
index 0caf1b4..827a561 100755
--- a/common/scripts/gblint.pl
+++ b/common/scripts/gblint.pl
@@ -174,6 +174,10 @@ while( $#ARGV > -1 && $ARGV[ 0 ] =~ /^-/ ) {
shift @ARGV;
$language = shift @ARGV;
}
+ elsif( $ARGV[ 0 ] eq '-h' ) {
+ usage();
+ exit 0;
+ }
}
my $lineNumber = 1;
@@ -231,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", ">" ); }
@@ -295,7 +299,7 @@ while( my $line = <> ) {
}
##### Others
- if( $line =~ m{