[Po4a-commits] "po4a po4a,1.47,1.48"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Thu Dec 8 21:04:30 UTC 2005
Update of /cvsroot/po4a/po4a
In directory haydn:/tmp/cvs-serv14644
Modified Files:
po4a
Log Message:
Fix the --quiet option.
Index: po4a
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- po4a 27 Nov 2005 16:17:20 -0000 1.47
+++ po4a 8 Dec 2005 21:04:27 -0000 1.48
@@ -358,8 +358,8 @@
) or pod2usage();
$opts{"verbose"} = scalar @verbose;
- $opts{"verbose"} = 1 if $opts{"debug"};
- $opts{"verbose"} = -1 if $opts{"quiet"};
+ $opts{"verbose"} = 0 if $opts{"quiet"};
+ $opts{"verbose"} ||= 1 if $opts{"debug"};
# options to transmit to the modules
%{$opts{"options"}} = (
@@ -620,7 +620,8 @@
$potfile->write_if_needed($pot_filename);
}
- print wrap_msg(gettext(" (%d entries)"), $potfile->count_entries());
+ print wrap_msg(gettext(" (%d entries)"), $potfile->count_entries())
+ unless ($po4a_opts{"quiet"});
} else {
$potfile->read($pot_filename);
}
@@ -651,10 +652,10 @@
foreach my $master (sort keys %document) {
my $pot=Locale::Po4a::Po->new();
my $po=Locale::Po4a::Po->new();
- print " $master:";
- print "(pot)";
+ print " $master:" unless ($po4a_opts{"quiet"});
+ print "(pot)" unless ($po4a_opts{"quiet"});
$pot=$potfile->filter("(reference=$master:)");
- print "(po) ";
+ print "(po) " unless ($po4a_opts{"quiet"});
$po=$poorig->filter("(reference=$master:)");
unlink($pot_filename) if -e $pot_filename;
unlink($po_filename) if -e $po_filename;
More information about the Po4a-commits
mailing list