--- processmail/processmail.pl	2005/02/15 19:27:51	2.3
+++ processmail/processmail.pl	2008/03/24 16:01:47	3.1
@@ -1,5 +1,5 @@
 #!/usr/local/bin/perl
-#$Id: processmail.pl,v 2.3 2005/02/15 19:27:51 boris Exp $
+#$Id: processmail.pl,v 3.1 2008/03/24 16:01:47 boris Exp $
 #
 #
 # Исходные файлы и параметры
@@ -7,7 +7,7 @@
 
     use Getopt::Std; 
 
-$usage = 'processmail.pl $Revision: 2.3 $, $Date: 2005/02/15 19:27:51 $'. "\n".
+$usage = 'processmail.pl $Revision: 3.1 $, $Date: 2008/03/24 16:01:47 $'. "\n".
 "Usage: processmail.pl [-d] [-t table_file]  [-o results] \n";
 
 require 'parameters.pl';
@@ -42,7 +42,7 @@ for (my $i=1; $i<=$ROUNDS; $i++) {
 }
 
 for (my $i=1; $i<=$ROUNDS; $i++) {
-    foreach my $file (split /\s+/, $FILES[$i]) {
+    foreach my $file ( @{$FILES[$i]} ) {
 	open (INFILE, $file);
 	readmail(\%teams);
 	collect_answers(\%teams,\@answers);
@@ -67,4 +67,7 @@ for ($i=1;$i<=$MAXQUEST;$i++)
 }
 print "***\n";
 
-
+#
+# На всякий случай проверяем на наличие команд с дублирующимися номерами.
+#
+check_dup_numbers(\%teams);