moses-smt/mosesdecoder
1
1
Fork 0
mirror of https://github.com/moses-smt/mosesdecoder.git synced 2025-01-08 04:27:53 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fixed a minor bug in mert-moses.pl regarding sanity checks for specified lambda triples

Browse Source 
git-svn-id: https://mosesdecoder.svn.sourceforge.net/svnroot/mosesdecoder/trunk@1254 1f5c12ca-751b-0410-a591-d2e778427230
This commit is contained in:
maurocettolo 2007-03-01 13:02:22 +00:00
parent e6b7866f4a
commit 5439a7796d
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scripts/training/mert-moses.pl
View File

@ -332,13 +332,13 @@ if (defined $___LAMBDA) {
}
# sanity checks for specified lambda triples
foreach my $name (keys %used_triples) {
die "No lambdas specified for '$name', but ".($used_triples{$name})." needed.\n"
die "No lambdas specified for '$name', but ".($#{$used_triples{$name}}+1)." needed.\n"
unless defined($specified_triples{$name});
die "Number of lambdas specified for '$name' (".($specified_triples{$name}).") does not match number needed (".($used_triples{$name}).")\n"
if scalar $used_triples{$name} != scalar $specified_triples{$name};
die "Number of lambdas specified for '$name' (".($#{$specified_triples{$name}}+1).") does not match number needed (".($#{$used_triples{$name}}+1).")\n"
if (($#{$used_triples{$name}}) != ($#{$specified_triples{$name}}));
}
foreach my $name (keys %specified_triples) {
die "Lambdas specified for '$name' ".($specified_triples{$name}).", but none needed.\n"
die "Lambdas specified for '$name' ".(@{$specified_triples{$name}}).", but none needed.\n"
unless defined($used_triples{$name});
}
%used_triples = %specified_triples;
@ -881,6 +881,7 @@ sub safesystem {
}
sub ensure_full_path {
my $PATH = shift;
$PATH =~ s/\/nfsmnt//;
return $PATH if $PATH =~ /^\//;
my $dir = `pawd 2>/dev/null`;
if(!$dir){$dir = `pwd`;}
@ -896,6 +897,7 @@ sub ensure_full_path {
}
$PATH =~ s/\/[^\/]+\/\.\.$//;
$PATH =~ s/\/+$//;
$PATH =~ s/\/nfsmnt//;
return $PATH;
}