summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
Diffstat (limited to 'perl')
-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";
}