From 145a47ddf6e95ab8db24aecf6a892b1b719d1919 Mon Sep 17 00:00:00 2001
From: Tetsuo Kiso <tetsuo-s@is.naist.jp>
Date: Wed, 2 May 2012 03:40:44 +0900
Subject: [PATCH] Fix annoying warnings on mert-moses.pl.

---
 scripts/training/mert-moses.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scripts/training/mert-moses.pl b/scripts/training/mert-moses.pl
index a4955f4f0..e7f4356f3 100755
--- a/scripts/training/mert-moses.pl
+++ b/scripts/training/mert-moses.pl
@@ -367,6 +367,8 @@ $scconfig = "--scconfig $scconfig" if ($scconfig);
 
 my $mert_extract_args=$mertargs;
 $mert_extract_args .=" $scconfig";
+
+$extractorargs = "" unless $extractorargs;
 $mert_extract_args .=" $extractorargs";
 
 $mertmertargs = "" if !defined $mertmertargs;
@@ -678,7 +680,7 @@ while(1) {
   my $score_file = "run$run.${base_score_file}";
 
   my $cmd = "$mert_extract_cmd $mert_extract_args --scfile $score_file --ffile $feature_file -r ".join(",", @references)." -n $nbest_file";
-  $cmd = create_extractor_script($cmd, $___WORKING_DIR);
+  $cmd = &create_extractor_script($cmd, $___WORKING_DIR);
 
   &submit_or_exec($cmd,"extract.out","extract.err");