[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.151,1.152"

[Nicolas FRANCOIS]

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

Modified Files:
	Man.pm 
Log Message:
Fix the new quote tests.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.151
retrieving revision 1.152
diff -u -d -r1.151 -r1.152
--- Man.pm	12 Jun 2006 21:01:56 -0000	1.151
+++ Man.pm	14 Jun 2006 18:49:53 -0000	1.152
@@ -1301,7 +1301,21 @@
                 push @args,$buffer;
                 $buffer = "";
                 $escaped = 0;
+            } else {
+                print STDERR "Quotes: Oops\n"
+                    if ($debug{'splitargs'});
             }
+        } elsif ($elem =~ m/^"(.*?(?<!")(?:"")*)"(?!")(.+)$/) {
+            print STDERR "Quoted: quote without space\n"
+                if ($debug{'splitargs'});
+            my $a = $1;
+            my $b = $2;
+            $a =~ s/""/\\(dq/g;
+            $a =~ s/\Q$nbs/\\ /g;
+            $b =~ s/""/\\(dq/g;
+            $b =~ s/\Q$nbs/\\ /g;
+            push @args,$a;
+            push @args,$b;
         } elsif ($elem =~ m/^"(.*)"$/) {
             print STDERR "Quoted, no space\n"
                 if ($debug{'splitargs'});