Changeset 5889 for trunk/Locale-Msgfmt

Timestamp:

07/06/09 22:51:30 (3 years ago)

Author:

ryan52

Message:

• 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)

Location:

trunk/Locale-Msgfmt

Files:

• Changes (modified) (1 diff)
• bin/msgfmt.pl (modified) (1 diff)
• lib/Locale/Msgfmt.pm (modified) (2 diffs)

trunk/Locale-Msgfmt/Changes

@@ -1 +1 @@
 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)
 
 0.11    Jul 06, 2009

trunk/Locale-Msgfmt/bin/msgfmt.pl

@@ -7 +7 @@
 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

trunk/Locale-Msgfmt/lib/Locale/Msgfmt.pm

@@ -29 +29 @@
         die("error: input does not exist");
     }
+    if ( !defined( $hash->{verbose} ) ) {
+        $hash->{verbose} = 1;
+    }
     if ( -d $hash->{in} ) {
         return _msgfmt_dir($hash);
@@ -57 +60 @@
     $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} );