From: Mauritz Jeanson <mj@johanneberg.com>
Date: Wed, 19 Dec 2007 17:52:39 +0000 (+0000)
Subject: An update to r7601: changed $w to [\w.]+ to ensure that the setup-language-variable... 
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=7aa14c93493ee2528a22ea52e4fe76afae29f057;p=docbook-dsssl

An update to r7601: changed $w to [\w.]+ to ensure that the setup-language-variable entity is not
modified by xslns-build.
---

diff --git a/releasetools/xslns-build b/releasetools/xslns-build
index 1bb9bdade..0774f6187 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;