From: Mauritz Jeanson <mj@johanneberg.com>
Date: Wed, 12 Dec 2007 20:01:02 +0000 (+0000)
Subject: Changed \w+ to $w in the regexp that matches entity declarations (indexentitydecl... 
X-Git-Tag: release/1.79.1~6^2~1583
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=6c9b4a53acafc43b717b821e0e5663186b2fdbd2;p=docbook-dsssl

Changed \w+ to $w in the regexp that matches entity declarations (indexentitydecl subroutine).
The reason is that \w+ does not match entity names that contain periods. See bug #1847825.
---

diff --git a/releasetools/xslns-build b/releasetools/xslns-build
index f36ac2e3e..1bb9bdade 100755
--- a/releasetools/xslns-build
+++ b/releasetools/xslns-build
@@ -375,7 +375,7 @@ sub indexentitydecl {
 
   my $newstring = '';
 
-  while ( $string =~ m@^(.*?)(<!ENTITY\s+(\w+)\s+('|"))(.*?)(\4\s*>)@sg  ) {
+  while ( $string =~ m@^(.*?)(<!ENTITY\s+($w)\s+('|"))(.*?)(\4\s*>)@sg  ) {
     my $before = $1;
     my $entitystart = $2;
     my $entityname = $3;