[Wesnoth-cvs-commits] wesnoth/utils wmlxgettext

[Yann Dirson]

CVSROOT:        /cvsroot/wesnoth
Module name:    wesnoth
Branch:         
Changes by:     Yann Dirson <address@hidden>    05/05/08 11:59:05

Modified files:
        utils          : wmlxgettext 

Log message:
        no need to use a stack

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

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