[Po4a-commits] "po4a/lib/Locale/Po4a TeX.pm,1.90,1.91"

[Nicolas FRANCOIS]

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

Modified Files:
	TeX.pm 
Log Message:
lib/Locale/Po4a/TeX.pm: When no parameters are specified in a
'% po4a: environment I<env> I<parameters>', do not expect a trailing space.


Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -d -r1.90 -r1.91
--- TeX.pm	16 Aug 2006 17:45:38 -0000	1.90
+++ TeX.pm	16 Aug 2006 18:04:28 -0000	1.91
@@ -1062,10 +1062,10 @@
         } elsif ($line =~ m/^((?:\{_?\}|\[_?\])*)\s*$/) {
             register_generic_command("$command,$1");
         }
-    } elsif ($line =~ /^environment\s+([+]?\w+\*?)\s+(.*)$/) {
+    } elsif ($line =~ /^environment\s+([+]?\w+\*?)(.*)$/) {
         my $env = $1;
         $line = $2;
-        if ($line =~ m/^((?:\{_?\}|\[_?\])*)\s*$/) {
+        if ($line =~ m/^\s*((?:\{_?\}|\[_?\])*)\s*$/) {
             register_generic_environment("$env,$1");
         }
     } elsif ($line =~ /^separator\s+(\w+(?:\[#[0-9]+\]))\s+\"(.*)\"\s*$/) {