diff --git a/po/pocheck.pl b/po/pocheck.pl index d1bd5231bb..391245a11e 100755 --- a/po/pocheck.pl +++ b/po/pocheck.pl @@ -15,13 +15,14 @@ use Getopt::Std; use Encode qw(encode decode); sub mylc($); +sub replaceSynopsis($); my $usage = < '$msgstr'\n" unless $only_total; @@ -257,3 +261,13 @@ sub mylc($) my ($msg) = @_; return(encode('utf-8',lc(decode('utf-8', $msg)))); } + +sub replaceSynopsis($) +{ + my ($string) = @_; + + return ($string) if ($string !~ /^(.*)\.\.\.(.*)$/); + my ($before, $after) = ($1, $2); + return $string if (($before =~ /\.$/) || ($after =~ /^\./)); + return("$before…$after"); +}