[Po4a-commits] po4a/lib/Locale/Po4a TeX.pm,1.21,1.22

Nicolas FRAN??OIS po4a-devel@lists.alioth.debian.org
Tue, 15 Feb 2005 22:40:15 +0000


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

Modified Files:
	TeX.pm 
Log Message:
Commands specified by "% po4a: command" lines can be preceded by a '*' to
indicate that they can be separated when they are at the beginning or end
of an entity.
This is already supported by register_generic.


Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- TeX.pm	15 Feb 2005 22:34:56 -0000	1.21
+++ TeX.pm	15 Feb 2005 22:40:12 -0000	1.22
@@ -730,9 +730,12 @@
     my ($self,$line)=@_;
     $line =~ s/^%\s+po4a:\s*//;
 
-    if ($line =~ /^command\s+(\w+)\s+(.*)$/) {
-        my $command = $1;
-        $line = $2;
+    if ($line =~ /^command\s+(\*?)(\w+)\s+(.*)$/) {
+        my $command = $2;
+        $line = $3;
+        if ($1) {
+            $separated{$command} = 1;
+        }
         if ($line =~ /^alias\s+(\w+)\s*$/) {
             if (defined ($commands{$1})) {
                 $commands{$command} = $commands{$1};