perl regexpr bug, submitted by German Sanchis Trilles

git-svn-id: https://mosesdecoder.svn.sourceforge.net/svnroot/mosesdecoder/trunk@1855 1f5c12ca-751b-0410-a591-d2e778427230
This commit is contained in:
hieuhoang1972 2008-06-19 21:57:29 +00:00
parent 7a4b1fb699
commit 52c2843e6c

View File

@ -91,7 +91,7 @@ while(<INI>) {
}
my ($factors,$t,$w,$file) = ($1,$2,$3,$4);
my $source_factor = $factors;
$source_factor =~ s/\-\d+$//;
$source_factor =~ s/\-[\d,]+$//;
chomp($file);
push @TABLE,$file;
@ -219,3 +219,4 @@ sub ensure_full_path {
$PATH =~ s/\/+$//;
return $PATH;
}