From ab86dfd7274e0bafaf3d12e55fb9d8c81c2af871 Mon Sep 17 00:00:00 2001
From: "vladimir.eidelman"
 <vladimir.eidelman@ec762483-ff6d-05da-a07a-a48fb63a330f>
Date: Sun, 5 Sep 2010 05:25:42 +0000
Subject: correction

git-svn-id: https://ws10smt.googlecode.com/svn/trunk@643 ec762483-ff6d-05da-a07a-a48fb63a330f
---
 mteval/mbr.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'mteval')

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