don't output warnings. It wasn't originally there before the 'env perl' change. This script should be tightened up at some point, eg use strict, debug warning messages

This commit is contained in:
Hieu Hoang 2015-04-20 16:18:51 +04:00
parent 1b9dc6cfae
commit eb37437d09

View File

@ -7,7 +7,7 @@
#Copyright Marcello Federico, November 2004
use warnings;
#use warnings;
($cnt,$dir,$inv)=();
@ -19,7 +19,7 @@ while ($w=shift @ARGV){
my $lc = 0;
if (!$dir || !inv){
if (!$dir || !$inv){
print "usage: giza2bal.pl [-c <count-file>] -d <dir-align-file> -i <inv-align-file>\n";
print "input files can be also commands, e.g. -d \"gunzip -c file.gz\"\n";
exit(0);