From 3763b2466b11830259477f05fcdfed994c270747 Mon Sep 17 00:00:00 2001
From: hieuhoang1972 <hieuhoang1972@1f5c12ca-751b-0410-a591-d2e778427230>
Date: Mon, 22 Aug 2011 07:56:46 +0000
Subject: run scorer regression test from any directory

git-svn-id: https://mosesdecoder.svn.sourceforge.net/svnroot/mosesdecoder/trunk@4155 1f5c12ca-751b-0410-a591-d2e778427230
---
 regression-testing/run-test-scorer.perl | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'regression-testing')

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;
-- 
cgit v1.2.3