filter fix && optimisation

[webpac] / all2xml.pl

diff --git a/all2xml.pl b/all2xml.pl
index d3b88f6..ab0474a 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -124,6 +124,7 @@ sub isis2xml {
                                        if ($filter) {
                                                no strict 'refs';
                                                $swish_data .= join(" ",&$filter($swish));
+print STDERR "#### $swish_data\n";
                                        } else {
                                                $swish_data .= $swish;
                                        }