r39452 - in /trunk/liblocale-msgfmt-perl: Changes META.yml bin/msgfmt.pl debian/changelog lib/Locale/Msgfmt.pm lib/Locale/Msgfmt/Utils.pm lib/Locale/Msgfmt/mo.pm lib/Locale/Msgfmt/po.pm lib/Module/Install/Msgfmt.pm
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Tue Jul 7 06:21:44 UTC 2009
Author: ryan52-guest
Date: Tue Jul 7 06:21:39 2009
New Revision: 39452
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39452
Log:
New upstream release
Modified:
trunk/liblocale-msgfmt-perl/Changes
trunk/liblocale-msgfmt-perl/META.yml
trunk/liblocale-msgfmt-perl/bin/msgfmt.pl
trunk/liblocale-msgfmt-perl/debian/changelog
trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt.pm
trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/Utils.pm
trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/mo.pm
trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/po.pm
trunk/liblocale-msgfmt-perl/lib/Module/Install/Msgfmt.pm
Modified: trunk/liblocale-msgfmt-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblocale-msgfmt-perl/Changes?rev=39452&op=diff
==============================================================================
--- trunk/liblocale-msgfmt-perl/Changes (original)
+++ trunk/liblocale-msgfmt-perl/Changes Tue Jul 7 06:21:39 2009
@@ -1,5 +1,9 @@
Revision history for Locale-Msgfmt
+0.12 Jul 06, 2009
+ - unlink the output file before writing to it if it already exists
+ - default to verbose (pass -q to msgfmt.pl or verbose => 0 to msgfmt)
+ - die when an unknown line is found in a .po file
0.11 Jul 06, 2009
- some code improvement in open() and opendir() and error handling (SZABGAB)
Modified: trunk/liblocale-msgfmt-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblocale-msgfmt-perl/META.yml?rev=39452&op=diff
==============================================================================
--- trunk/liblocale-msgfmt-perl/META.yml (original)
+++ trunk/liblocale-msgfmt-perl/META.yml Tue Jul 7 06:21:39 2009
@@ -1,6 +1,6 @@
---
name: Locale-Msgfmt
-version: 0.11
+version: 0.12
author:
- 'Ryan Niebur <ryanryan52 at gmail.com>'
abstract: Compile .po files to .mo files
@@ -12,19 +12,19 @@
provides:
Locale::Msgfmt:
file: lib/Locale/Msgfmt.pm
- version: 0.11
+ version: 0.12
Locale::Msgfmt::Utils:
file: lib/Locale/Msgfmt/Utils.pm
- version: 0.11
+ version: 0.12
Locale::Msgfmt::mo:
file: lib/Locale/Msgfmt/mo.pm
- version: 0.11
+ version: 0.12
Locale::Msgfmt::po:
file: lib/Locale/Msgfmt/po.pm
- version: 0.11
+ version: 0.12
Module::Install::Msgfmt:
file: lib/Module/Install/Msgfmt.pm
- version: 0.11
+ version: 0.12
generated_by: Module::Build version 0.33
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
Modified: trunk/liblocale-msgfmt-perl/bin/msgfmt.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblocale-msgfmt-perl/bin/msgfmt.pl?rev=39452&op=diff
==============================================================================
--- trunk/liblocale-msgfmt-perl/bin/msgfmt.pl (original)
+++ trunk/liblocale-msgfmt-perl/bin/msgfmt.pl Tue Jul 7 06:21:39 2009
@@ -6,11 +6,11 @@
use strict;
use warnings;
-my($opt_o, $opt_f);
-GetOptions("output-file|o=s" => \$opt_o, "use-fuzzy|f" => \$opt_f);
+my($opt_o, $opt_f, $opt_q);
+GetOptions("output-file|o=s" => \$opt_o, "use-fuzzy|f" => \$opt_f, "quiet|q" => \$opt_q);
my $in = shift;
-msgfmt({in => $in, out => $opt_o, fuzzy => $opt_f});
+msgfmt({in => $in, out => $opt_o, fuzzy => $opt_f, verbose => !$opt_q});
=head1 NAME
Modified: trunk/liblocale-msgfmt-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblocale-msgfmt-perl/debian/changelog?rev=39452&op=diff
==============================================================================
--- trunk/liblocale-msgfmt-perl/debian/changelog (original)
+++ trunk/liblocale-msgfmt-perl/debian/changelog Tue Jul 7 06:21:39 2009
@@ -1,8 +1,9 @@
-liblocale-msgfmt-perl (0.11-1) UNRELEASED; urgency=low
+liblocale-msgfmt-perl (0.12-1) UNRELEASED; urgency=low
* New upstream release
+ * New upstream release
- -- Ryan Niebur <ryanryan52 at gmail.com> Mon, 06 Jul 2009 16:45:09 -0700
+ -- Ryan Niebur <ryanryan52 at gmail.com> Mon, 06 Jul 2009 23:21:29 -0700
liblocale-msgfmt-perl (0.08-1) unstable; urgency=low
Modified: trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt.pm?rev=39452&op=diff
==============================================================================
--- trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt.pm (original)
+++ trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt.pm Tue Jul 7 06:21:39 2009
@@ -12,7 +12,7 @@
our @EXPORT = qw/msgfmt/;
-our $VERSION = '0.11';
+our $VERSION = '0.12';
sub msgfmt {
my $hash = shift;
@@ -27,6 +27,9 @@
}
if ( !-e $hash->{in} ) {
die("error: input does not exist");
+ }
+ if ( !defined( $hash->{verbose} ) ) {
+ $hash->{verbose} = 1;
}
if ( -d $hash->{in} ) {
return _msgfmt_dir($hash);
@@ -56,6 +59,7 @@
my $po = Locale::Msgfmt::po->new( { fuzzy => $hash->{fuzzy} } );
$po->parse( $hash->{in}, $mo );
$mo->prepare();
+ unlink( $hash->{out} ) if ( -f $hash->{out} );
$mo->out( $hash->{out} );
print $hash->{in} . " -> " . $hash->{out} . "\n" if ( $hash->{verbose} );
unlink( $hash->{in} ) if ( $hash->{remove} );
@@ -72,6 +76,7 @@
if ( !-d $hash->{out} ) {
File::Path::mkpath( $hash->{out} );
}
+ print $hash->{in} . " -> " . $hash->{out} . "\n" if ( $hash->{verbose} );
opendir my $D, $hash->{in} or die "Could not open ($hash->{in}) $!";
my @list = readdir $D;
closedir $D;
Modified: trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/Utils.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/Utils.pm?rev=39452&op=diff
==============================================================================
--- trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/Utils.pm (original)
+++ trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/Utils.pm Tue Jul 7 06:21:39 2009
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.11';
+our $VERSION = '0.12';
sub character {
return map { pack "N*", $_ } @_;
Modified: trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/mo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/mo.pm?rev=39452&op=diff
==============================================================================
--- trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/mo.pm (original)
+++ trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/mo.pm Tue Jul 7 06:21:39 2009
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.11';
+our $VERSION = '0.12';
use Locale::Msgfmt::Utils;
Modified: trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/po.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/po.pm?rev=39452&op=diff
==============================================================================
--- trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/po.pm (original)
+++ trunk/liblocale-msgfmt-perl/lib/Locale/Msgfmt/po.pm Tue Jul 7 06:21:39 2009
@@ -5,7 +5,7 @@
use strict;
use warnings;
-our $VERSION = '0.11';
+our $VERSION = '0.12';
sub new {
my $class = shift;
@@ -89,7 +89,7 @@
}
}
} else {
- print "unknown line: " . $_ . "\n";
+ die("unknown line: " . $_);
}
}
$self->add_string( \%h );
Modified: trunk/liblocale-msgfmt-perl/lib/Module/Install/Msgfmt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblocale-msgfmt-perl/lib/Module/Install/Msgfmt.pm?rev=39452&op=diff
==============================================================================
--- trunk/liblocale-msgfmt-perl/lib/Module/Install/Msgfmt.pm (original)
+++ trunk/liblocale-msgfmt-perl/lib/Module/Install/Msgfmt.pm Tue Jul 7 06:21:39 2009
@@ -5,7 +5,7 @@
use Module::Install::Base ();
use Module::Install::Share;
-our $VERSION = '0.11';
+our $VERSION = '0.12';
our @ISA = 'Module::Install::Base';
sub install_share_with_mofiles {
More information about the Pkg-perl-cvs-commits
mailing list