From: Jonathan Blake <jonathan.blake@projectaon.org>
Date: Sat, 10 Feb 2018 23:16:19 +0000 (+0000)
Subject: upating <ch.ellips/> handling to current practices
X-Git-Tag: 20180215~41
X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=commitdiff_plain;h=60ee1301c43c9bd1b8aa38a2426446a364d7eeab

upating <ch.ellips/> handling to current practices


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

diff --git a/common/scripts/gblint.pl b/common/scripts/gblint.pl
index 85e5ced..136a272 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", "<ch.ellips/> or <ch.lellips/>" ); }
-  if( $line =~ m{([[:space:]]<ch\.ellips/>)} || $line =~ m{(<ch\.ellips/>[[:space:]])} ) { &printError( "ne", $currentSection, $lineNumber, "<ch.ellips/> with extraneous surrounding space", "$1", "<ch.ellips/>" ); }
+  if( $line =~ m{([[:space:]]<ch\.ellips/>)}) { &printError( "ne", $currentSection, $lineNumber, "<ch.ellips/> with extraneous surrounding space", "$1", "<ch.ellips/>" ); }
   if( $line =~ m{([^>])(<ch\.lellips/>)} ) { &printError( "ne", $currentSection, $lineNumber, "possible <ch.lellips/> used in place of <ch.ellips/>", "$1$2", "$1<ch.ellips/>" ); }
   if( $line =~ m{(><ch\.ellips/>)} ) { &printError( "ne", $currentSection, $lineNumber, "possible <ch.ellips/> used in place of <ch.lellips/>", "$1", "><ch.lellips/>" ); }