summaryrefslogtreecommitdiff
path: root/perl/Locale
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2008-05-31 09:26:17 +0200
committerJonas Smedegaard <dr@jones.dk>2008-05-31 09:26:48 +0200
commitc1443bc8adc52a03b86cc3dc57a6848766093d25 (patch)
tree702645fc5fe36b154465c1f39288b9b675709e24 /perl/Locale
parent0f9b433157c58eda2296e06d6183475688c43468 (diff)
Fix po4a: Only strip fortune comment in fortunes mode.
Diffstat (limited to 'perl/Locale')
-rw-r--r--perl/Locale/Po4a/Text.pm4
1 files changed, 3 insertions, 1 deletions
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";
}