r525 - trunk/misc
DONOTREPLY at icculus.org
DONOTREPLY at icculus.org
Fri Feb 29 06:56:30 EST 2008
Author: icculus
Date: 2008-02-29 06:56:26 -0500 (Fri, 29 Feb 2008)
New Revision: 525
Modified:
trunk/misc/po2localization.pl
Log:
Handle comments the way I like them.
Modified: trunk/misc/po2localization.pl
===================================================================
--- trunk/misc/po2localization.pl 2008-02-29 11:49:16 UTC (rev 524)
+++ trunk/misc/po2localization.pl 2008-02-29 11:56:26 UTC (rev 525)
@@ -43,8 +43,12 @@
s/\s+\Z//;
next if ($_ eq '');
- if (s/\A\#\.\s*(.*)\Z/ -- $1\n/) {
- $comment .= $_ if ($template);
+ if (s/\A\#\.\s*(.*)\Z/$1/) {
+ if ($template) {
+ my $txt = $_;
+ $txt = " $txt" if ($comment ne '');
+ $comment .= " -- $txt\n";
+ }
next;
}
More information about the mojosetup-commits
mailing list