From e9b90eb61fe14bae07efd43dbf1b5b3a1a8cd4f5 Mon Sep 17 00:00:00 2001
From: Marius Gedminas <marius@gedmin.as>
Date: Mon, 2 Mar 2020 10:01:31 +0200
Subject: [PATCH] Apply code review suggestion

---
 contrib/collection.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrib/collection.cgi b/contrib/collection.cgi
index 484a2c180..6b0665af8 100755
--- a/contrib/collection.cgi
+++ b/contrib/collection.cgi
@@ -77,9 +77,9 @@ sub read_types_db
 		my ($type, $specs) = split(m/\s+/, $line, 2);
 		my @specs = split(m/,?\s+/, $specs);
 		$Types->{$type} = [];
-		for (my $i = 0; $i < @specs; $i++)
+		foreach my $spec (@specs)
 		{
-			my ($name, $ds_type, $min, $max) = split(m/:/, $specs[$i]);
+			my ($name, $ds_type, $min, $max) = split(m/:/, $spec);
 			push (@{$Types->{$type}}, $name);
 		}
 	}
-- 
2.47.2