Update po files.

[lyx.git] / po / pocheck.pl

diff --git a/po/pocheck.pl b/po/pocheck.pl
index b46bacfe354cecbbbc4add712db8b20438c52f06..69bc405b2b947b1c1b9a59f5a850cebdee2b8d97 100755 (executable)
--- a/po/pocheck.pl
+++ b/po/pocheck.pl
@@ -81,9 +81,18 @@ foreach $pofilename ( @ARGV )
           $warn++;
         }
 
+        # Check for "|..." shortcuts
+        if ( ( $msgid =~ m/\|[^ ]/ ) != ( $msgstr =~ m/\|[^ ]/ ) ) {
+          print( "Missing or unexpected menu shortcut:\n" );
+          print( "  '$msgid' => '$msgstr'\n" );
+          $warn++;
+        }
+
         $msgid_clean  = lc($msgid);
         $msgstr_clean = lc($msgstr);
 
+        $msgid_clean  =~ s/(.*)\|.*?$/$1/;  # strip menu shortcuts
+        $msgstr_clean =~ s/(.*)\|.*?$/$1/;
         $msgid_clean  =~ s/&([^ ])/$1/;     # strip Qt shortcuts
         $msgstr_clean =~ s/&([^ ])/$1/;