Strike out (in the output) deleted display math with track-changes

[lyx.git] / po / pocheck.pl

diff --git a/po/pocheck.pl b/po/pocheck.pl
index df25fdad3bda069038895a4c97bbb428a521000b..68dd83f23c4978d80f43d402d8d96b7c43f6fff0 100755 (executable)
--- a/po/pocheck.pl
+++ b/po/pocheck.pl
@@ -49,14 +49,16 @@ delete $options{i} if $silent_mode;
 
 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) {
@@ -108,6 +110,9 @@ foreach my $pofilename ( @ARGV ) {
     # (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 );
@@ -236,4 +241,8 @@ foreach my $pofilename ( @ARGV ) {
     }
     print "\n";
   }
+  $total_warn += $warn;
 }
+
+exit ($total_warn > 0);
+