fix repeatable fields in index data

[webpac] / all2xml.pl

diff --git a/all2xml.pl b/all2xml.pl
index b2a192c..7246d75 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -181,8 +181,8 @@ sub data2xml {
                        if (@index_data) {
                                if ($index_filter) {
                                        no strict 'refs';
-                                       foreach my $d (&$index_filter(@index_data)) {
-                                               $index->insert($field, $d, $path);
+                                       foreach my $d (@index_data) {
+                                               $index->insert($field, &$index_filter($d), $path);
                                        }
                                } else {
                                        foreach my $d (@index_data) {