diff options
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Locale/Po4a/Text.pm | 4 |
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"; } |