diff options
| author | Denis Barbier <barbier> | 2001-11-19 00:48:38 +0000 |
|---|---|---|
| committer | Denis Barbier <barbier> | 2001-11-19 00:48:38 +0000 |
| commit | c8f527641f9ec814c6b37422041cea9b6016c10e (patch) | |
| tree | b90f770b3f876f397927846aac67d22ce58a632f /Perl/Webwml | |
| parent | fe3bdc0a9a02eb37cc2447631a37d6db800f995d (diff) | |
Fix newlines in error messages
CVS version numbers
Perl/Webwml/L10n/Db.pm: 1.2 -> 1.3
Diffstat (limited to 'Perl/Webwml')
| -rw-r--r-- | Perl/Webwml/L10n/Db.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Perl/Webwml/L10n/Db.pm b/Perl/Webwml/L10n/Db.pm index badc37059e0..bbe04298fc5 100644 --- a/Perl/Webwml/L10n/Db.pm +++ b/Perl/Webwml/L10n/Db.pm @@ -230,11 +230,13 @@ sub write { } foreach (qw(Errors Warnings Catgets Gettext)) { if (defined($self->{data}->{$pkg}->{lc $_})) { - $text = join("\.\n", @{$self->{data}->{$pkg}->{lc $_}})."\n"; + $text = join("\n\.\n", @{$self->{data}->{$pkg}->{lc $_}})."\n"; + $text =~ s/\n\n/\n/g; + $text =~ s/\n+$//s; $text =~ s/^/ /mg; # Warning: there is already a trailing # newline within $text. - print DB $_.":\n".$text; + print DB $_.":\n".$text."\n"; } } foreach (qw(NLS PO TEMPLATES MENU)) { |