Change to translation directory from anywhere

This allows the script to be invoked from anywhere in the tree,
and it will cd to the src/translation directory.

Author: softins

tools/checkkeys.pl

@@ -27,6 +27,12 @@
 use open qw(:std :utf8);
 use XML::LibXML;
 use Data::Dumper;
+use File::Basename;
+
+my $TRANSLATION = "src/translation";
+my $scriptdir = dirname $0;
+
+chdir "$scriptdir/../$TRANSLATION" or die "translation directory not found";
 
 my %keys;