[Po4a-commits] po4a/lib/Locale/Po4a TeX.pm,1.38,1.39

[Nicolas FRAN??OIS]

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

Modified Files:
	TeX.pm 
Log Message:
Be more permissive on "% po4a:" spacing.


Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- TeX.pm	26 Feb 2005 00:39:00 -0000	1.38
+++ TeX.pm	26 Feb 2005 00:40:48 -0000	1.39
@@ -867,7 +867,7 @@
         || die wrap_mod("po4a::tex",
             dgettext("po4a", "Can't open %s: %s"), $filename, $!);
     while (<IN>) {
-        if (/^%\s+po4a:/) {
+        if (/^\s*%\s*po4a\s*:/) {
             parse_definition_line($self, $_);
         }
     }
@@ -883,7 +883,7 @@
 
 sub parse_definition_line {
     my ($self,$line)=@_;
-    $line =~ s/^%\s+po4a:\s*//;
+    $line =~ s/^\s*%\s+po4a\s*:\s*//;
 
     if ($line =~ /^command\s+(\*?)(\w+)\s+(.*)$/) {
         my $command = $2;