Fix regex for matching entities.

diff --git a/contrib/tools/cloak/cloak b/contrib/tools/cloak/cloak
index d84a83ed63950bda330b37244867b11b252970ec..6da8204223901a51c5f522d8e722b674709e4b89 100755 (executable)
--- a/contrib/tools/cloak/cloak
+++ b/contrib/tools/cloak/cloak
@@ -55,7 +55,7 @@ if ($lines =~ m/$comment/ || $0 =~ m/uncloak/) {
 
     $lines = $lines . "\n<?" . $comment . " ?>\n";
 
-    $lines =~ s/(\w*&\w+;\w*)/<?ENT_ $1_ENT?>/g;      # cloak all entities
+    $lines =~ s/(&\w+;)/<?ENT_ $1_ENT?>/g;      # cloak all entities
 
     # uncloak entities in subset
     while ($lines =~ /(<!ENTITY[^']*?'[^']*?)<\?ENT_ (.+?)_ENT\?>(.*?'\s*>)/s) {