[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Wesnoth-cvs-commits] wesnoth/utils wmlxgettext
From: |
Yann Dirson |
Subject: |
[Wesnoth-cvs-commits] wesnoth/utils wmlxgettext |
Date: |
Sun, 08 May 2005 07:59:05 -0400 |
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