--- processmail/collection.pl	2005/02/16 22:25:59	1.4
+++ processmail/collection.pl	2008/03/24 16:01:47	3.1
@@ -1,6 +1,6 @@
 #!/usr/local/bin/perl
 #
-#$Id: collection.pl,v 1.4 2005/02/16 22:25:59 boris Exp $
+#$Id: collection.pl,v 3.1 2008/03/24 16:01:47 boris Exp $
 #
 # Собрание сочинений
 #
@@ -42,7 +42,7 @@ if ($opt_t)
 # Читаем ответы команд
 #
 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);
@@ -50,6 +50,7 @@ for (my $i=1; $i<=$ROUNDS; $i++) {
     }
 }
 
+#
 # Пишем измененную таблицу в файл.
 #
 if ($opt_o)
@@ -69,9 +70,8 @@ for ($i=1;$i<=$MAXQUEST;$i++)
 }
 print "***\n";
 
-
-
-
-
-
+#
+# На всякий случай проверяем на наличие команд с дублирующимися номерами.
+#
+check_dup_numbers(\%teams);