From e03ed20efd2cf21bc0e6225c7304d50a4d8e42b1 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sat, 31 May 2008 09:26:17 +0200
Subject: Fix po4a: Only strip fortune comment in fortunes mode.

---
 Locale/Po4a/Text.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Locale')

diff --git a/Locale/Po4a/Text.pm b/Locale/Po4a/Text.pm
index 0b0ca70..0edb376 100644
--- a/Locale/Po4a/Text.pm
+++ b/Locale/Po4a/Text.pm
@@ -192,7 +192,9 @@ sub parse {
                 # paragraph
                 $wrapped_mode = 0;
             }
-            $line =~ s/%%(.*)$//;
+            if ($fortunes) {
+                $line =~ s/%%(.*)$//;
+            }
 # TODO: comments
             $paragraph .= $line."\n";
         }
-- 
cgit v1.2.3