changeset 623:5e805fc30f91

Nested expansion now supported to 3rd level of nesting.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 06 Jun 2007 02:57:05 +0000
parents 3edc44d42542
children cc40c7360880
files docs/normalizeml.pl
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/docs/normalizeml.pl	Wed Jun 06 02:37:02 2007 +0000
+++ b/docs/normalizeml.pl	Wed Jun 06 02:57:05 2007 +0000
@@ -29,6 +29,16 @@
     while(($k, $v) = each(%ents)) {
       $s =~ s/&$k;/$v/g;
     }
+    if ($s =~ /&/) {
+      while(($k, $v) = each(%ents)) {
+        $s =~ s/&$k;/$v/g;
+      }
+      if ($s =~ /&/) {
+        while(($k, $v) = each(%ents)) {
+          $s =~ s/&$k;/$v/g;
+        }
+      }
+    }
     print $s;
   }
 }