From c1443bc8adc52a03b86cc3dc57a6848766093d25 Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Sat, 31 May 2008 09:26:17 +0200 Subject: Fix po4a: Only strip fortune comment in fortunes mode. --- perl/Locale/Po4a/Text.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl') diff --git a/perl/Locale/Po4a/Text.pm b/perl/Locale/Po4a/Text.pm index 0b0ca70..0edb376 100644 --- a/perl/Locale/Po4a/Text.pm +++ b/perl/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