check-gnome-japo.plcheck-gnome-japo.pl �xJ� V � V #! /usr/bin/perl ## simple ja.po checker for GNOME Japanese translation team. ## Useful if this script used with pofilter. use strict; use warnings; use utf8; use Getopt::Long; use File::Basename; use Text::CSV_XS; use Unicode::Normalize; binmode STDOUT, ':utf8'; our $Before_Matches = sub { }; our $Match_Func = sub { my ( $file, $line_no, $orig, $trans, $msg ) = @_
