From 04544f8bfcd567b8306671b1420341ab7ee7fbf3 Mon Sep 17 00:00:00 2001
From: phikoehn <pkoehn@inf.ed.ac.uk>
Date: Thu, 4 Oct 2012 23:22:19 +0100
Subject: [PATCH] better error message when reference file not found

---
 scripts/generic/multi-bleu.perl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scripts/generic/multi-bleu.perl b/scripts/generic/multi-bleu.perl
index 137117647..94da1504f 100755
--- a/scripts/generic/multi-bleu.perl
+++ b/scripts/generic/multi-bleu.perl
@@ -25,6 +25,7 @@ while(-e "$stem$ref") {
     $ref++;
 }
 &add_to_ref($stem,\@REF) if -e $stem;
+die("ERROR: could not find reference file $stem") unless scalar @REF;
 
 sub add_to_ref {
     my ($file,$REF) = @_;