From 7334d49191861f84ace29998e070b999edc46519 Mon Sep 17 00:00:00 2001 From: phkoehn Date: Wed, 27 Oct 2010 12:42:34 +0000 Subject: minor experiment.perl fixes git-svn-id: https://mosesdecoder.svn.sourceforge.net/svnroot/mosesdecoder/trunk@3668 1f5c12ca-751b-0410-a591-d2e778427230 --- scripts/ems/support/run-command-on-multiple-refsets.perl | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'scripts/ems/support/run-command-on-multiple-refsets.perl') diff --git a/scripts/ems/support/run-command-on-multiple-refsets.perl b/scripts/ems/support/run-command-on-multiple-refsets.perl index 1a7ef9e8e..7590e72a1 100755 --- a/scripts/ems/support/run-command-on-multiple-refsets.perl +++ b/scripts/ems/support/run-command-on-multiple-refsets.perl @@ -6,6 +6,11 @@ die("ERROR: syntax: run-command-on-multiple-refsets.perl cmd in out") unless scalar @ARGV == 3; my ($cmd,$in,$out) = @ARGV; +die("ERROR: attempt to run on multiple references, but there is only one") + if -e $in && ! -e "$in.ref0"; +die("ERROR: did not find reference '$in.ref0'") + unless -e "$in.ref0"; + for(my $i=0;-e "$in.ref$i";$i++) { my $single_cmd = $cmd; $single_cmd =~ s/mref-input-file/$in.ref$i/g; -- cgit v1.2.3