ctests: ignore Japanese dvi3 systemF tests

[lyx.git] / development / autotests / filterXml4Sax.pl

diff --git a/development/autotests/filterXml4Sax.pl b/development/autotests/filterXml4Sax.pl
index 4ebb69bb36a4f31be2ca6f4f32b3516f9ed0df66..981def9a1ebed77bbbc390fd9b9a09c0db67fb52 100644 (file)
--- a/development/autotests/filterXml4Sax.pl
+++ b/development/autotests/filterXml4Sax.pl
@@ -69,17 +69,19 @@ sub handlePara($)
   if ($para =~ /^\s*([a-z]+(:[a-z]+)?)\s*=\s*(.*)$/) {
     my $val;
     my ($p, $rest) = ($1, $3);
-    if ($rest =~ /^(\'[^\']*\')(.*)$/) {
+    if ($rest =~ /^(\'([^\']|\\\')*\')(.*)$/) {
       $val = $1;
-      $rest = $2;
+      $rest = $3;
     }
-    elsif ($rest =~ /^(\"[^\"]*\")(.*)$/) {
+    elsif ($rest =~ /^(\"([^\"]|\\\")*\")(.*)$/) {
       $val = $1;
-      $rest = $2;
+      $rest = $3;
     }
     elsif ($rest =~ /^([^\s]+)(.*)$/) {
-      $val = '"' . $1 . '"';
+      my $val1 = $1;
       $rest = $2;
+      $val1 =~ s/([\"\'\\])/\\$1/g;
+      $val = '"' . $val1 . '"';
     }
     else {
       die("param error for rest = $rest");