$NetBSD: patch-by,v 1.2 2007/04/05 23:24:02 hira Exp $

--- filter/source/config/fragments/langfilter.pl.orig	2007-03-19 22:40:51.000000000 +0900
+++ filter/source/config/fragments/langfilter.pl	2007-03-19 22:41:34.000000000 +0900
@@ -0,0 +1,18 @@
+#!/usr/pkg/bin/perl
+
+use strict;
+
+# XXX
+my $infile = $ARGV[1];
+my $lang = $ARGV[4];
+
+open(IN, $infile) || die "cannot open: $!";
+
+while (<IN>) {
+	if (/^\s*<value xml:lang="\s*(.*)\s*".*$/) {
+		next if ($1 ne $lang);
+	}
+	print $_;
+}
+
+close(IN);
