diff options
| author | Jonas Smedegaard <dr@jones.dk> | 2008-05-31 09:26:17 +0200 |
|---|---|---|
| committer | Jonas Smedegaard <dr@jones.dk> | 2008-05-31 09:26:48 +0200 |
| commit | c1443bc8adc52a03b86cc3dc57a6848766093d25 (patch) | |
| tree | 702645fc5fe36b154465c1f39288b9b675709e24 /perl | |
| parent | 0f9b433157c58eda2296e06d6183475688c43468 (diff) | |
Fix po4a: Only strip fortune comment in fortunes mode.
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"; } |