[Po4a-commits] po4a/lib/Locale/Po4a TeX.pm,1.27,1.28

[Nicolas FRAN??OIS]

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

Modified Files:
	TeX.pm 
Log Message:
Support asterisk variant for environments.


Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- TeX.pm	19 Feb 2005 21:47:37 -0000	1.27
+++ TeX.pm	19 Feb 2005 21:59:31 -0000	1.28
@@ -1064,9 +1064,14 @@
         if ($debug{'commands'} || $debug{'environments'});
     my ($t,@e) = ("",());
 
-    if (defined($args->[0]) && defined($environments{$args->[0]})) {
-        ($t, @e) = &{$environments{$args->[0]}}($self,$command,$variant,
-                                                $opts,$args,$env);
+    my $envir = $args->[0];
+    if (defined($envir) and $envir =~ /^(.*)\*$/) {
+        $envir = $1;
+    }
+
+    if (defined($env) && defined($environments{$envir})) {
+        ($t, @e) = &{$environments{$envir}}($self,$command,$variant,
+                                            $opts,$args,$env);
     } else {
         die wrap_mod("po4a::tex", "unknown environment: '%s'", $args->[0]);
     }