aniani/elinks
1
0
Fork 0
mirror of https://github.com/rkd77/elinks.git synced 2024-12-04 14:46:47 -05:00
Code

Renamed normalize_str to _normalize_str, and dump_multi_comment to _dump_multi_comment.

Browse Source
This commit is contained in:
Kalle Olavi Niemitalo 2006-02-05 18:21:25 +02:00 committed by Kalle Olavi Niemitalo
parent b1f8756c59
commit 15d4531f14
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
po/perl/Locale/PO.pm
View File

@ -133,7 +133,9 @@ sub php_format {
@_ ? $self->{'php_format'} = shift: $self->{'php_format'}; @_ ? $self->{'php_format'} = shift: $self->{'php_format'};
} }
sub normalize_str { # Methods whose names begin with "_" may be changed or removed in
# future versions.
sub _normalize_str {
my $self = shift; # can be called as a class method my $self = shift; # can be called as a class method
my $string = shift; my $string = shift;
my $dequoted = $self->dequote($string); my $dequoted = $self->dequote($string);
@ -163,11 +165,11 @@ sub normalize_str {
sub dump { sub dump {
my Locale::PO $self = shift; my Locale::PO $self = shift;
my $dump; my $dump;
$dump = $self->dump_multi_comment( $self->comment, "# " ) $dump = $self->_dump_multi_comment( $self->comment, "# " )
if ( $self->comment ); if ( $self->comment );
$dump .= $self->dump_multi_comment( $self->automatic, "#. " ) $dump .= $self->_dump_multi_comment( $self->automatic, "#. " )
if ( $self->automatic ); if ( $self->automatic );
$dump .= $self->dump_multi_comment( $self->reference, "#: " ) $dump .= $self->_dump_multi_comment( $self->reference, "#: " )
if ( $self->reference ); if ( $self->reference );
my $flags = ''; my $flags = '';
$flags .= ", fuzzy" if $self->fuzzy; $flags .= ", fuzzy" if $self->fuzzy;
@ -181,14 +183,14 @@ sub dump {
if ( defined( $self->php_format ) if ( defined( $self->php_format )
and $self->php_format ); and $self->php_format );
$dump .= "#$flags\n" if length $flags; $dump .= "#$flags\n" if length $flags;
$dump .= "msgid " . $self->normalize_str( $self->msgid ); $dump .= "msgid " . $self->_normalize_str( $self->msgid );
$dump .= "msgid_plural " . $self->normalize_str( $self->msgid_plural ) $dump .= "msgid_plural " . $self->_normalize_str( $self->msgid_plural )
if $self->msgid_plural; if $self->msgid_plural;
$dump .= "msgstr " . $self->normalize_str( $self->msgstr ) if $self->msgstr; $dump .= "msgstr " . $self->_normalize_str( $self->msgstr ) if $self->msgstr;
if ( my $msgstr_n = $self->msgstr_n ) { if ( my $msgstr_n = $self->msgstr_n ) {
$dump .= "msgstr[$_] " . $self->normalize_str( $$msgstr_n{$_} ) $dump .= "msgstr[$_] " . $self->_normalize_str( $$msgstr_n{$_} )
for sort { $a <=> $b } keys %$msgstr_n; for sort { $a <=> $b } keys %$msgstr_n;
} }
@ -196,7 +198,9 @@ sub dump {
return $dump; return $dump;
} }
sub dump_multi_comment { # Methods whose names begin with "_" may be changed or removed in
# future versions.
sub _dump_multi_comment {
my $self = shift; # can be called as a class method my $self = shift; # can be called as a class method
my $comment = shift; my $comment = shift;
my $leader = shift; my $leader = shift;
@ -630,6 +634,7 @@ Reformatted this list of changes.
Added comments about the fields of Locale::PO objects. Added comments about the fields of Locale::PO objects.
The load_file function binds $/ and $_ dynamically. The load_file function binds $/ and $_ dynamically.
Renamed normalize_str to _normalize_str, and dump_multi_comment to _dump_multi_comment.
=back =back