[Po4a-commits] po4a/lib/Locale/Po4a Sgml.pm,1.53,1.54

[Martin Quinson]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv3068

Modified Files:
	Sgml.pm 
Log Message:
Use a regular expression to simplify the tag kind check [Francois Gouget]

Index: Sgml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- Sgml.pm	12 May 2005 13:24:57 -0000	1.53
+++ Sgml.pm	21 May 2005 18:39:22 -0000	1.54
@@ -280,7 +280,7 @@
     
     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{$_};
     }