my $check_args = (!%options or defined($options{a}));
my $check_colons = (!%options or defined($options{c}));
-my $check_spaces = (!%options or defined($options{m}));
+my $check_spaces = (!%options or defined($options{s}));
my $check_periods = (!%options or defined($options{p}));
my $check_qt = (!%options or defined($options{q}));
-my $check_menu = (!%options or defined($options{s}));
+my $check_menu = (!%options or defined($options{m}));
my $check_trans = (!%options or defined($options{t}));
my %trans;
+my $total_warn = 0;
+
foreach my $pofilename ( @ARGV ) {
my %bad;
if (!$silent_mode) {
# (surely that is always $msgstr?)
next if ($msgid eq "" or $msgstr eq "");
+ # discard [[...]] from the end of msgid, this is used only as hint to translation
+ $msgid =~ s/\[\[.*\]\]$//;
+
# Check for matching %1$s, etc.
if ($check_args) {
my @argstrs = ( $msgid =~ m/%(\d)\$s/g );
}
print "\n";
}
+ $total_warn += $warn;
}
+
+exit ($total_warn > 0);
+