mirror of
https://github.com/moses-smt/mosesdecoder.git
synced 2024-09-11 11:25:40 +03:00
reference-from-sgm.perl: fix Perl error
This commit is contained in:
parent
e983e33180
commit
a5c99ca660
@ -60,7 +60,7 @@ foreach my $system (keys %DOC) {
|
||||
}
|
||||
open(TXT,">$outfile") || die($outfile);
|
||||
foreach my $doc (@ORDER) {
|
||||
die("can't find '$doc' for ref '$system'") unless defined @{$DOC{$system}{$doc}};
|
||||
die("can't find '$doc' for ref '$system'") unless defined $DOC{$system}{$doc};
|
||||
foreach my $line (@{$DOC{$system}{$doc}}) {
|
||||
print TXT $line."\n";
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user