--- trunk2/all2all.pl	2004/10/10 12:19:26	502
+++ trunk2/all2all.pl	2004/10/10 17:21:17	503
@@ -35,13 +35,13 @@
 my $filter = {
 	'CROVOC' => sub {
 		my $tmp = shift || return;
-		return undef unless ($tmp =~ s/\s+CROVOC.*$/ */);
+		return undef unless ($tmp =~ s/\s*CROVOC.*$/ */);
 		return $tmp;
 	},
 	'CROVOC_tree' => sub {
 		my $tmp = shift || return;
-		$tmp =~ s/\s+CROVOC.*$/ */;
-		$tmp =~ s/\s+EUROVOC.*//;
+		$tmp =~ s/\s*CROVOC.*$/ */;
+		$tmp =~ s/\s*EUROVOC.*//;
 		return $tmp;
 	},
 };