Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Locale-Maketext-Lexicon CPAN distribution.

Report information
The Basics
Id: 5471
Status: resolved
Priority: 0/
Queue: Locale-Maketext-Lexicon

People
Owner: Nobody in particular
Requestors: herald [...] breggen.xs4all.nl
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)



Subject: comments in po-files
Download (untitled) / with headers
text/plain 463b
Hi, We are using comments in po-files like this: #: /some/file:77 # Changed at 1077894033 # Changed by herald msgid "some id" msgstr "some translation" after running "xgettext.pl -u -o po-file.po *", all comments are wiped out. To avoid this I made attached patch. It's probably not the most elegant solution, but for now it works. Could you please prevent the wiping out of comments in po-files in future releases of this module? Thanks in advance, Herald
diff -ruN Locale-Maketext-Lexicon-0.34/lib/Locale/Maketext/Extract.pm Locale-Maketext-Lexicon-new/lib/Locale/Maketext/Extract.pm --- Locale-Maketext-Lexicon-0.34/lib/Locale/Maketext/Extract.pm 2003-12-31 09:28:19.000000000 +0100 +++ Locale-Maketext-Lexicon-new/lib/Locale/Maketext/Extract.pm 2004-02-27 16:36:47.000000000 +0100 @@ -66,7 +66,7 @@ sub new { my $class = shift; - bless({ header => '', entries => {}, lexicon => {}, @_ }, $class); + bless({ header => '', entries => {}, lexicon => {}, comments => {}, @_ }, $class); } =head2 Accessors @@ -87,6 +87,12 @@ sub msgstr { $_[0]{lexicon}{$_[1]} } sub set_msgstr { $_[0]{lexicon}{$_[1]} = $_[2] } +sub comments { $_[0]{comments} } +sub set_comments { $_[0]{comments} = $_[1] || {} } + +sub comment { $_[0]{comments}{$_[1]} } +sub set_comment { $_[0]{comments}{$_[1]} = $_[2] || [] } + sub entries { $_[0]{entries} } sub set_entries { $_[0]{entries} = $_[1] || {} } @@ -122,11 +128,12 @@ $self->set_header("$header\n"); require Locale::Maketext::Lexicon::Gettext; - my $lexicon = Locale::Maketext::Lexicon::Gettext->parse(<LEXICON>); + my ($comments, $lexicon) = Locale::Maketext::Lexicon::Gettext->parse(<LEXICON>); $self->set_lexicon( $verbatim ? { map _to_gettext($_), %$lexicon } : $lexicon ); + $self->set_comments($comments); close LEXICON; } @@ -142,6 +149,7 @@ $self->normalize_space($msgid); print LEXICON "\n"; print LEXICON $self->msg_positions($msgid); + print LEXICON $self->msg_comments($msgid); print LEXICON $self->msg_variables($msgid); print LEXICON $self->msg_format($msgid) if $add_format; print LEXICON $self->msg_out($msgid); @@ -345,6 +353,11 @@ return join('', '#:', sort(keys %files), "\n"); } +sub msg_comments { + my ($self, $msgid) = @_; + return join('', map { "# " . $_ . "\n" } @{$self->comment($msgid)||[]}); +} + sub msg_variables { my ($self, $msgid) = @_; my $out = ''; diff -ruN Locale-Maketext-Lexicon-0.34/lib/Locale/Maketext/Lexicon/Gettext.pm Locale-Maketext-Lexicon-new/lib/Locale/Maketext/Lexicon/Gettext.pm --- Locale-Maketext-Lexicon-0.34/lib/Locale/Maketext/Lexicon/Gettext.pm 2003-12-31 09:28:19.000000000 +0100 +++ Locale-Maketext-Lexicon-new/lib/Locale/Maketext/Lexicon/Gettext.pm 2004-02-27 16:37:01.000000000 +0100 @@ -84,6 +84,8 @@ my $self = shift; my (%var, $key, @ret); my @metadata; + my %comments; + my @comments; $InputEncoding = $OutputEncoding = $DoEncoding = undef; @@ -106,6 +108,10 @@ /^(msgid|msgstr) +"(.*)" *$/ ? do { # leading strings $var{$1} = $2; $key = $1; + if ($key eq 'msgstr' && scalar(@comments > 0)) { + $comments{$var{msgid}} = [@comments]; + undef @comments; + } } : /^"(.*)" *$/ ? do { # continued strings @@ -115,6 +121,10 @@ /^#, +(.*) *$/ ? do { # control variables $var{$_} = 1 for split(/,\s+/, $1); } : + + /^#[ \t]+(.*) *$/ ? do { # comment + push(@comments, $1); + } : /^ *$/ && %var ? do { # interpolate string escapes push @ret, (map transform($_), @var{'msgid', 'msgstr'}) @@ -125,12 +135,11 @@ } : (); } - push @ret, map { transform($_) } @var{'msgid', 'msgstr'} - if length $var{msgstr}; + push @ret, map { transform($_) } @var{'msgid', 'msgstr'} + if (length $var{msgstr}); push @metadata, parse_metadata($var{msgstr}) if $var{msgid} eq ''; - - return {@metadata, @ret}; + return (\%comments, {@metadata, @ret}); } sub parse_metadata {
RT-Send-CC: cpan [...] audreyt.org
Download (untitled) / with headers
text/plain 420b
We also have this problem and, sadly, we came up with a really similar patch without knowing it was here. Is it possible to apply this patch for PO-file comments? It's really important that comments get included in the final PO files, because the translators actually rely on those. If you have no time for this, please assign me the co-maintainership for the module, so I can upload a new updated version. Thanks!
Download (untitled) / with headers
text/plain 153b
Here is a hopefully complete patch, with a new test case about parsing and keeping comments in a read_po + write_po cycle. All tests are passing for me.
diff -Naur Locale-Maketext-Lexicon-0.66/AUTHORS Locale-Maketext-Lexicon-0.66-cosimo/AUTHORS --- Locale-Maketext-Lexicon-0.66/AUTHORS 2007-02-07 04:50:48.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/AUTHORS 2008-08-01 11:43:39.000000000 +0000 @@ -8,6 +8,7 @@ Alain Barbet (ALIAN) Brian Cassidy (BRICAS) Christian Hansen +Cosimo Streppone (COSIMO) Gaal Yahas (GAAL) Harmen Helmut Lichtenberg diff -Naur Locale-Maketext-Lexicon-0.66/Changes Locale-Maketext-Lexicon-0.66-cosimo/Changes --- Locale-Maketext-Lexicon-0.66/Changes 2008-02-12 12:55:45.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/Changes 2008-08-01 12:39:28.000000000 +0000 @@ -1,3 +1,9 @@ +[Changes for 0.67 - .........] + +* Locale::Maketext::Extract: Support in Extract.pm and Lexicon/Gettext.pm + for parsing and keeping user comments in PO files. + Contributed by: Cosimo Streppone + [Changes for 0.66 - 2008-02-12] * Locale::Maketext::Extract: Support in Extract.pm->extract for diff -Naur Locale-Maketext-Lexicon-0.66/lib/Locale/Maketext/Extract.pm Locale-Maketext-Lexicon-0.66-cosimo/lib/Locale/Maketext/Extract.pm --- Locale-Maketext-Lexicon-0.66/lib/Locale/Maketext/Extract.pm 2008-02-12 12:53:53.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/lib/Locale/Maketext/Extract.pm 2008-08-01 12:32:29.000000000 +0000 @@ -115,6 +115,7 @@ sub clear { $_[0]->set_header; $_[0]->set_lexicon; + $_[0]->set_comments; $_[0]->set_entries; $_[0]->set_compiled_entries; } @@ -140,18 +141,31 @@ $self->set_header("$header\n"); require Locale::Maketext::Lexicon::Gettext; - my $lexicon = ( - defined($_) - ? Locale::Maketext::Lexicon::Gettext->parse($_, <LEXICON>) - : {} - ); + my $lexicon = {}; + my $comments = {}; + + if (defined($_)) { + ($lexicon, $comments) = Locale::Maketext::Lexicon::Gettext->parse($_, <LEXICON>); + } # Internally the lexicon is in gettext format already. $self->set_lexicon( { map _maketext_to_gettext($_), %$lexicon } ); + $self->set_comments( $comments ); close LEXICON; } +sub msg_comment { + my $self = shift; + my $msgid = shift; + my $comment = $self->{comments}->{$msgid}; + return $comment; +} + +sub set_comments { + $_[0]->{comments}=$_[1]; +} + =head3 method write_po ($file, $add_format_marker?) =cut @@ -167,6 +181,10 @@ foreach my $msgid ($self->msgids) { $self->normalize_space($msgid); print LEXICON "\n"; + if (my $comment = $self->msg_comment($msgid)) { + my @lines = split "\n", $comment; + print LEXICON map {"# $_\n"} @lines; + } print LEXICON $self->msg_positions($msgid); print LEXICON $self->msg_variables($msgid); print LEXICON $self->msg_format($msgid) if $add_format_marker; diff -Naur Locale-Maketext-Lexicon-0.66/lib/Locale/Maketext/Lexicon/Gettext.pm Locale-Maketext-Lexicon-0.66-cosimo/lib/Locale/Maketext/Lexicon/Gettext.pm --- Locale-Maketext-Lexicon-0.66/lib/Locale/Maketext/Lexicon/Gettext.pm 2008-01-07 14:31:24.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/lib/Locale/Maketext/Lexicon/Gettext.pm 2008-08-01 12:34:30.000000000 +0000 @@ -94,6 +94,7 @@ my $self = shift; my (%var, $key, @ret); my @metadata; + my @comments; $InputEncoding = $OutputEncoding = $DoEncoding = undef; @@ -116,8 +117,11 @@ elsif ($AllowEmpty) { push @ret, (transform($var{msgid}), ''); } - push @metadata, parse_metadata($var{msgstr}) - if $var{msgid} eq ''; + if ($var{msgid} eq '') { + push @metadata, parse_metadata($var{msgstr}); + } else { + push @comments, transform($var{msgid}), $var{msgcomment}; + } %var = (); }; @@ -138,6 +142,12 @@ } : + /^# (.*)$/ + ? do { # user comments + $var{msgcomment} .= $1 . "\n"; + } + : + /^#, +(.*) *$/ ? do { # control variables $var{$_} = 1 for split(/,\s+/, $1); @@ -149,6 +159,7 @@ $process->($_); } : (); + } # do not silently skip last entry @@ -159,7 +170,11 @@ push @metadata, parse_metadata($var{msgstr}) if $var{msgid} eq ''; - return { @metadata, @ret }; + return wantarray + ? ( { @metadata, @ret }, { @comments } ) + : ( { @metadata, @ret } ) + ; + } sub parse_metadata { diff -Naur Locale-Maketext-Lexicon-0.66/MANIFEST Locale-Maketext-Lexicon-0.66-cosimo/MANIFEST --- Locale-Maketext-Lexicon-0.66/MANIFEST 2008-02-12 12:55:54.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/MANIFEST 2008-08-01 12:27:22.000000000 +0000 @@ -34,6 +34,7 @@ t/4-encodings.t t/5-extract.t t/6-gettext.t +t/7-comments.t t/99-bug-import-for-subclasses.t t/gencat.m t/locale/en/LC_MESSAGES/test.mo @@ -45,6 +46,7 @@ t/locale/zh_TW/LC_MESSAGES/test.mo t/locale/zh_TW/LC_MESSAGES/test_be.mo t/locale/zh_TW/LC_MESSAGES/test_utf8.mo +t/comments.po t/messages.mo t/messages.po t/T_L10N.pm diff -Naur Locale-Maketext-Lexicon-0.66/META.yml Locale-Maketext-Lexicon-0.66-cosimo/META.yml --- Locale-Maketext-Lexicon-0.66/META.yml 2008-02-12 12:55:53.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/META.yml 2008-08-01 11:42:36.000000000 +0000 @@ -16,4 +16,4 @@ requires: Locale::Maketext: 0.01 perl: 5.004 -version: 0.66 +version: 0.67 diff -Naur Locale-Maketext-Lexicon-0.66/README Locale-Maketext-Lexicon-0.66-cosimo/README --- Locale-Maketext-Lexicon-0.66/README 2008-02-12 12:53:27.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/README 2008-08-01 12:39:37.000000000 +0000 @@ -2,8 +2,8 @@ Locale::Maketext::Lexicon - Use other catalog formats in Maketext VERSION - This document describes version 0.66 of Locale::Maketext::Lexicon, - released February 12, 2008. + This document describes version 0.67 of Locale::Maketext::Lexicon, + released ............... SYNOPSIS As part of a localization class, automatically glob for available diff -Naur Locale-Maketext-Lexicon-0.66/t/7-comments.t Locale-Maketext-Lexicon-0.66-cosimo/t/7-comments.t --- Locale-Maketext-Lexicon-0.66/t/7-comments.t 1970-01-01 00:00:00.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/t/7-comments.t 2008-08-01 12:42:34.000000000 +0000 @@ -0,0 +1,43 @@ +#!/usr/bin/perl -w +# +# Check that comments in PO files are correctly parsed +# + +use strict; +use Test::More tests => 6; + +use_ok('Locale::Maketext::Extract'); + +my $msgid = 'A random string to check that comments work'; +my $lex = Locale::Maketext::Extract->new(); +ok( $lex, 'Locale::Maketext::Extract object created'); + +$lex->read_po('t/comments.po'); + +# Here '#' and newlines are kept together with the comment +# Don't know if it's correct or elegant +is( + $lex->msg_comment($msgid), + 'Some user comment' . "\n" +); + +$lex->write_po('t/comments_out.po'); + +$lex->clear(); + +is( + $lex->msg_comment($msgid), + undef, + 'Comment should be gone with clear()' +); + +# Read back the new po file and check that +# the comment is readable again +$lex->read_po('t/comments_out.po'); + +is( + $lex->msg_comment($msgid), + 'Some user comment' . "\n" +); + +ok(unlink('t/comments_out.po')); diff -Naur Locale-Maketext-Lexicon-0.66/t/comments.po Locale-Maketext-Lexicon-0.66-cosimo/t/comments.po --- Locale-Maketext-Lexicon-0.66/t/comments.po 1970-01-01 00:00:00.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/t/comments.po 2008-08-01 12:33:05.000000000 +0000 @@ -0,0 +1,15 @@ +msgid "" +msgstr "" +"Project-Id-Version: Test App 0.01\n" +"POT-Creation-Date: 2008-08-01 14:20+0200\n" +"PO-Revision-Date: 2008-08-01 14:21+0200\n" +"Last-Translator: <cosimo@cpan.org>\n" +"Language-Team: Italian <cosimo@cpan.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" + +# Some user comment +#: comments.t:1 +msgid "A random string to check that comments work" +msgstr "Una stringa casuale per controllare che i commenti funzionino"
RT-Send-CC: cpan [...] audreyt.org
Download (untitled) / with headers
text/plain 153b
Here is a hopefully complete patch, with a new test case about parsing and keeping comments in a read_po + write_po cycle. All tests are passing for me.
diff -Naur Locale-Maketext-Lexicon-0.66/AUTHORS Locale-Maketext-Lexicon-0.66-cosimo/AUTHORS --- Locale-Maketext-Lexicon-0.66/AUTHORS 2007-02-07 04:50:48.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/AUTHORS 2008-08-01 11:43:39.000000000 +0000 @@ -8,6 +8,7 @@ Alain Barbet (ALIAN) Brian Cassidy (BRICAS) Christian Hansen +Cosimo Streppone (COSIMO) Gaal Yahas (GAAL) Harmen Helmut Lichtenberg diff -Naur Locale-Maketext-Lexicon-0.66/Changes Locale-Maketext-Lexicon-0.66-cosimo/Changes --- Locale-Maketext-Lexicon-0.66/Changes 2008-02-12 12:55:45.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/Changes 2008-08-01 12:39:28.000000000 +0000 @@ -1,3 +1,9 @@ +[Changes for 0.67 - .........] + +* Locale::Maketext::Extract: Support in Extract.pm and Lexicon/Gettext.pm + for parsing and keeping user comments in PO files. + Contributed by: Cosimo Streppone + [Changes for 0.66 - 2008-02-12] * Locale::Maketext::Extract: Support in Extract.pm->extract for diff -Naur Locale-Maketext-Lexicon-0.66/lib/Locale/Maketext/Extract.pm Locale-Maketext-Lexicon-0.66-cosimo/lib/Locale/Maketext/Extract.pm --- Locale-Maketext-Lexicon-0.66/lib/Locale/Maketext/Extract.pm 2008-02-12 12:53:53.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/lib/Locale/Maketext/Extract.pm 2008-08-01 12:32:29.000000000 +0000 @@ -115,6 +115,7 @@ sub clear { $_[0]->set_header; $_[0]->set_lexicon; + $_[0]->set_comments; $_[0]->set_entries; $_[0]->set_compiled_entries; } @@ -140,18 +141,31 @@ $self->set_header("$header\n"); require Locale::Maketext::Lexicon::Gettext; - my $lexicon = ( - defined($_) - ? Locale::Maketext::Lexicon::Gettext->parse($_, <LEXICON>) - : {} - ); + my $lexicon = {}; + my $comments = {}; + + if (defined($_)) { + ($lexicon, $comments) = Locale::Maketext::Lexicon::Gettext->parse($_, <LEXICON>); + } # Internally the lexicon is in gettext format already. $self->set_lexicon( { map _maketext_to_gettext($_), %$lexicon } ); + $self->set_comments( $comments ); close LEXICON; } +sub msg_comment { + my $self = shift; + my $msgid = shift; + my $comment = $self->{comments}->{$msgid}; + return $comment; +} + +sub set_comments { + $_[0]->{comments}=$_[1]; +} + =head3 method write_po ($file, $add_format_marker?) =cut @@ -167,6 +181,10 @@ foreach my $msgid ($self->msgids) { $self->normalize_space($msgid); print LEXICON "\n"; + if (my $comment = $self->msg_comment($msgid)) { + my @lines = split "\n", $comment; + print LEXICON map {"# $_\n"} @lines; + } print LEXICON $self->msg_positions($msgid); print LEXICON $self->msg_variables($msgid); print LEXICON $self->msg_format($msgid) if $add_format_marker; diff -Naur Locale-Maketext-Lexicon-0.66/lib/Locale/Maketext/Lexicon/Gettext.pm Locale-Maketext-Lexicon-0.66-cosimo/lib/Locale/Maketext/Lexicon/Gettext.pm --- Locale-Maketext-Lexicon-0.66/lib/Locale/Maketext/Lexicon/Gettext.pm 2008-01-07 14:31:24.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/lib/Locale/Maketext/Lexicon/Gettext.pm 2008-08-01 12:34:30.000000000 +0000 @@ -94,6 +94,7 @@ my $self = shift; my (%var, $key, @ret); my @metadata; + my @comments; $InputEncoding = $OutputEncoding = $DoEncoding = undef; @@ -116,8 +117,11 @@ elsif ($AllowEmpty) { push @ret, (transform($var{msgid}), ''); } - push @metadata, parse_metadata($var{msgstr}) - if $var{msgid} eq ''; + if ($var{msgid} eq '') { + push @metadata, parse_metadata($var{msgstr}); + } else { + push @comments, transform($var{msgid}), $var{msgcomment}; + } %var = (); }; @@ -138,6 +142,12 @@ } : + /^# (.*)$/ + ? do { # user comments + $var{msgcomment} .= $1 . "\n"; + } + : + /^#, +(.*) *$/ ? do { # control variables $var{$_} = 1 for split(/,\s+/, $1); @@ -149,6 +159,7 @@ $process->($_); } : (); + } # do not silently skip last entry @@ -159,7 +170,11 @@ push @metadata, parse_metadata($var{msgstr}) if $var{msgid} eq ''; - return { @metadata, @ret }; + return wantarray + ? ( { @metadata, @ret }, { @comments } ) + : ( { @metadata, @ret } ) + ; + } sub parse_metadata { diff -Naur Locale-Maketext-Lexicon-0.66/MANIFEST Locale-Maketext-Lexicon-0.66-cosimo/MANIFEST --- Locale-Maketext-Lexicon-0.66/MANIFEST 2008-02-12 12:55:54.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/MANIFEST 2008-08-01 12:27:22.000000000 +0000 @@ -34,6 +34,7 @@ t/4-encodings.t t/5-extract.t t/6-gettext.t +t/7-comments.t t/99-bug-import-for-subclasses.t t/gencat.m t/locale/en/LC_MESSAGES/test.mo @@ -45,6 +46,7 @@ t/locale/zh_TW/LC_MESSAGES/test.mo t/locale/zh_TW/LC_MESSAGES/test_be.mo t/locale/zh_TW/LC_MESSAGES/test_utf8.mo +t/comments.po t/messages.mo t/messages.po t/T_L10N.pm diff -Naur Locale-Maketext-Lexicon-0.66/META.yml Locale-Maketext-Lexicon-0.66-cosimo/META.yml --- Locale-Maketext-Lexicon-0.66/META.yml 2008-02-12 12:55:53.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/META.yml 2008-08-01 11:42:36.000000000 +0000 @@ -16,4 +16,4 @@ requires: Locale::Maketext: 0.01 perl: 5.004 -version: 0.66 +version: 0.67 diff -Naur Locale-Maketext-Lexicon-0.66/README Locale-Maketext-Lexicon-0.66-cosimo/README --- Locale-Maketext-Lexicon-0.66/README 2008-02-12 12:53:27.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/README 2008-08-01 12:39:37.000000000 +0000 @@ -2,8 +2,8 @@ Locale::Maketext::Lexicon - Use other catalog formats in Maketext VERSION - This document describes version 0.66 of Locale::Maketext::Lexicon, - released February 12, 2008. + This document describes version 0.67 of Locale::Maketext::Lexicon, + released ............... SYNOPSIS As part of a localization class, automatically glob for available diff -Naur Locale-Maketext-Lexicon-0.66/t/7-comments.t Locale-Maketext-Lexicon-0.66-cosimo/t/7-comments.t --- Locale-Maketext-Lexicon-0.66/t/7-comments.t 1970-01-01 00:00:00.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/t/7-comments.t 2008-08-01 12:42:34.000000000 +0000 @@ -0,0 +1,43 @@ +#!/usr/bin/perl -w +# +# Check that comments in PO files are correctly parsed +# + +use strict; +use Test::More tests => 6; + +use_ok('Locale::Maketext::Extract'); + +my $msgid = 'A random string to check that comments work'; +my $lex = Locale::Maketext::Extract->new(); +ok( $lex, 'Locale::Maketext::Extract object created'); + +$lex->read_po('t/comments.po'); + +# Here '#' and newlines are kept together with the comment +# Don't know if it's correct or elegant +is( + $lex->msg_comment($msgid), + 'Some user comment' . "\n" +); + +$lex->write_po('t/comments_out.po'); + +$lex->clear(); + +is( + $lex->msg_comment($msgid), + undef, + 'Comment should be gone with clear()' +); + +# Read back the new po file and check that +# the comment is readable again +$lex->read_po('t/comments_out.po'); + +is( + $lex->msg_comment($msgid), + 'Some user comment' . "\n" +); + +ok(unlink('t/comments_out.po')); diff -Naur Locale-Maketext-Lexicon-0.66/t/comments.po Locale-Maketext-Lexicon-0.66-cosimo/t/comments.po --- Locale-Maketext-Lexicon-0.66/t/comments.po 1970-01-01 00:00:00.000000000 +0000 +++ Locale-Maketext-Lexicon-0.66-cosimo/t/comments.po 2008-08-01 12:33:05.000000000 +0000 @@ -0,0 +1,15 @@ +msgid "" +msgstr "" +"Project-Id-Version: Test App 0.01\n" +"POT-Creation-Date: 2008-08-01 14:20+0200\n" +"PO-Revision-Date: 2008-08-01 14:21+0200\n" +"Last-Translator: <cosimo@cpan.org>\n" +"Language-Team: Italian <cosimo@cpan.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" + +# Some user comment +#: comments.t:1 +msgid "A random string to check that comments work" +msgstr "Una stringa casuale per controllare che i commenti funzionino"
Subject: Re: [rt.cpan.org #5471] comments in po-files
Date: Fri, 01 Aug 2008 15:12:41 +0200
To: bug-Locale-Maketext-Lexicon [...] rt.cpan.org
From: Herald van der Breggen <herald [...] breggen.xs4all.nl>
Hi Cosimo, Thanks for pushing this forward! Herald
Download (untitled) / with headers
text/plain 183b
I see that v0.67 is out on CPAN with the comments patch applied, but as 'unauthorized'. Is it possible to change permissions and upload a 0.68, so it gets correctly indexed? Thanks!
Download (untitled) / with headers
text/plain 333b
On Sat Aug 09 07:59:25 2008, COSIMO wrote: Show quoted text
> I see that v0.67 is out on CPAN with the comments patch applied, > but as 'unauthorized'. > Is it possible to change permissions and upload a 0.68, > so it gets correctly indexed? > > Thanks!
Done. (FWIW, you no longer need to do a new release. You can now force reindexing from pause)


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.