[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};