aniani/elinks
1
0
Fork 0
mirror of https://github.com/rkd77/elinks.git synced 2024-11-04 08:17:17 -05:00
Code

Minor fix and comments in Locale::PO:

Browse Source 
The load_file function binds $/ and $_ dynamically.
Added comments about the fields of Locale::PO objects.
This commit is contained in:
Kalle Olavi Niemitalo 2006-02-05 17:47:36 +02:00 committed by Kalle Olavi Niemitalo
parent 5a5d223020
commit 608727861d
1 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,9 +7,25 @@ use warnings;
package Locale::PO; package Locale::PO;
use Carp; use Carp;
use fields qw(msgid msgid_plural msgstr msgstr_n
comment automatic reference # Internally, each Locale::PO object is a reference to a hash
fuzzy c_format php_format); # (or pseudo-hash, for Perl < 5.9) with the following keys.
# The format of the hash is subject to change; other modules
# should use the accessor methods instead.
use fields
# Multiline strings including quotes and newlines, but excluding
# the initial keywords and any "#~ " obsoletion marks. Can be
# either undef or "" if not present. These end with a newline
# if not empty.
qw(msgid msgid_plural msgstr),
# A reference to a hash where keys are numbers (as strings)
# and values are in the same format as $self->{msgstr}.
qw(msgstr_n),
# Multiline strings excluding the trailing newline and comment
# markers, or undef if there are no such lines.
qw(comment automatic reference),
# Flags; see the accessors with the same names.
qw(fuzzy c_format php_format);
#use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); #use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
#use locale; #use locale;
@ -256,6 +272,8 @@ sub load_file {
my $po; my $po;
my %buffer; my %buffer;
my $last_buffer; my $last_buffer;
local $/ = "\n";
local $_;
open( IN, "<$file" ) or return undef; open( IN, "<$file" ) or return undef;
while (<IN>) { while (<IN>) {
@ -608,6 +626,11 @@ POD changes:
Greatly expanded the L</BUGS> section. Greatly expanded the L</BUGS> section.
Reformatted this list of changes. Reformatted this list of changes.
=item Z<>2006-02-05 Kalle Olavi Niemitalo <kon@iki.fi>
Added comments about the fields of Locale::PO objects.
The load_file function binds $/ and $_ dynamically.
=back =back
=head1 COPYRIGHT AND LICENSE =head1 COPYRIGHT AND LICENSE