r525 - trunk/misc

[DONOTREPLY at icculus.org]

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;
         }