better error message when reference file not found

This commit is contained in:
phikoehn 2012-10-04 23:22:19 +01:00
parent ab2e18466f
commit 04544f8bfc

View File

@ -25,6 +25,7 @@ while(-e "$stem$ref") {
$ref++;
}
&add_to_ref($stem,\@REF) if -e $stem;
die("ERROR: could not find reference file $stem") unless scalar @REF;
sub add_to_ref {
my ($file,$REF) = @_;