run scorer regression test from any directory

git-svn-id: https://mosesdecoder.svn.sourceforge.net/svnroot/mosesdecoder/trunk@4155 1f5c12ca-751b-0410-a591-d2e778427230

1 files changed, 9 insertions, 0 deletions

diff --git a/regression-testing/run-test-scorer.perl b/regression-testing/run-test-scorer.perl
index e3395cfa8..22a7b9370 100755
--- a/regression-testing/run-test-scorer.perl
+++ b/regression-testing/run-test-scorer.perl
@@ -1,6 +1,15 @@
 #!/usr/bin/perl -w
 
 use strict;
+
+BEGIN {
+use Cwd qw/ abs_path /; 
+use File::Basename; 
+my $script_dir = dirname(abs_path($0));
+print STDERR  "script_dir=$script_dir\n";
+push @INC, $script_dir;
+}
+
 use FindBin qw($Bin);
 use MosesRegressionTesting;
 use Getopt::Long;