summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorvladimir.eidelman <vladimir.eidelman@ec762483-ff6d-05da-a07a-a48fb63a330f>2010-09-05 05:25:42 +0000
committervladimir.eidelman <vladimir.eidelman@ec762483-ff6d-05da-a07a-a48fb63a330f>2010-09-05 05:25:42 +0000
commitab86dfd7274e0bafaf3d12e55fb9d8c81c2af871 (patch)
tree2e06de93bcd563d196980428f61a0beee19002c5
parent7f248cf66ffdcfbf7a857473b665b4090454ba44 (diff)
correction
git-svn-id: https://ws10smt.googlecode.com/svn/trunk@643 ec762483-ff6d-05da-a07a-a48fb63a330f
-rwxr-xr-xmteval/mbr.pl8
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;