Index: po4a/lib/Locale/Po4a/Sgml.pm
===================================================================
RCS file: /cvsroot/wine/docs/po4a/lib/Locale/Po4a/Sgml.pm,v
retrieving revision 1.1.1.1
diff -u -p -r1.1.1.1 Sgml.pm
--- po4a/lib/Locale/Po4a/Sgml.pm	14 May 2005 12:37:35 -0000	1.1.1.1
+++ po4a/lib/Locale/Po4a/Sgml.pm	19 May 2005 10:00:11 -0000
@@ -280,7 +280,7 @@ sub set_tags_kind {
     
     foreach (keys %kinds) {
 	die "po4a::sgml: internal error: set_tags_kind called with unrecognized arg $_"
-	    if ($_ ne 'translate' && $_ ne 'empty' && $_ ne 'verbatim'  && $_ ne 'ignore' && $_ ne 'indent');
+	    if ($_ !~ /^(translate|empty|verbatim|ignore|indent)$/);
 	
 	$self->{SGML}->{k}{$_} .= $kinds{$_};
     }