correction

git-svn-id: https://ws10smt.googlecode.com/svn/trunk@643 ec762483-ff6d-05da-a07a-a48fb63a330f

1 files changed, 4 insertions, 4 deletions

diff --git a/mteval/mbr.pl b/mteval/mbr.pl
index 798da2d1..ff7763d8 100755
--- a/mteval/mbr.pl
+++ b/mteval/mbr.pl
@@ -1,14 +1,14 @@
+#!/usr/bin/perl -w
 #parallelize mbr computation from k-best list
 #Example usage : ./mbr.pl <kbest input file> <mbr output directory>
-
-#!/usr/bin/perl -w
 use strict;
 use File::Temp;
 use FileHandle;
+use Cwd qw(getcwd);
 
 sub create_qsub;
-
-my $MBR = "/chomes/vlad/ws10smt/mteval/mbr_kbest";
+my $SCRIPT_DIR; BEGIN { use Cwd qw/ abs_path /; use File::Basename; $SCRIPT_DIR = dirname(abs_path($0)); push @INC, $SCRIPT_DIR, "$SCRIPT_DIR/../environment"; }
+my $MBR = "$SCRIPT_DIR/mbr_kbest";
 
 die unless -x $MBR;
 my $kbest = shift @ARGV;