[Wesnoth-cvs-commits] wesnoth/utils wmlxgettext

[Yann Dirson]

CVSROOT:        /cvsroot/wesnoth
Module name:    wesnoth
Branch:         
Changes by:     Yann Dirson <address@hidden>    05/05/08 12:14:40

Modified files:
        utils          : wmlxgettext 

Log message:
        d'oh - revert last change, we may need a stack after all

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/wesnoth/wesnoth/utils/wmlxgettext.diff?tr1=1.16&tr2=1.17&r1=text&r2=text

Patches:
Index: wesnoth/utils/wmlxgettext
diff -u wesnoth/utils/wmlxgettext:1.16 wesnoth/utils/wmlxgettext:1.17
--- wesnoth/utils/wmlxgettext:1.16      Sun May  8 11:59:04 2005
+++ wesnoth/utils/wmlxgettext   Sun May  8 12:14:40 2005
@@ -27,18 +27,18 @@
 foreach my $file (@ARGV) {
   open (FILE, "<$file") or die "cannot read from $file";
   my $readingattack = 0;
-  my $currentdomain = $initialdomain;
+  my @domainstack = ($initialdomain);
  LINE: while (<FILE>) {
     # change the current textdomain when hitting the directive
     if (m/\s*\#textdomain\s+(\S+)/) {
-      $currentdomain = $1;
+      unshift @domainstack, $1;
       next LINE;
     }
 
     # skip other # lines as comments
     next LINE if m/^\s*\#/ and !defined $str;
 
-    next LINE unless $currentdomain eq $domain;
+    next LINE unless $domainstack[0] eq $domain;
 
     if (!defined $str and m/^(?:[^\"]*?)((?:_\s*)?)\"([^\"]*)\"(.*)/) {
       # single-line quoted string