--- trunk2/all2all.pl	2004/10/09 21:44:25	490
+++ trunk2/all2all.pl	2004/10/10 11:04:52	500
@@ -32,6 +32,14 @@
 	"low_mem!"	=> \$low_mem,
 );
 
+my $filter = {
+	'CROVOC' => sub {
+		my $tmp = shift || return;
+		return undef unless ($tmp =~ s/CROVOC.*$/ */);
+		return $tmp;
+	},
+};
+
 # create WebPAC object
 #
 my $webpac = new WebPAC(
@@ -40,6 +48,7 @@
 	start_mfn => $start_mfn,
 	debug => $debug,
 	low_mem => $low_mem,
+	filter => $filter,
 ) || die;
 
 my $log = $webpac->_get_logger() || die "can't get logger";