[Po4a-commits] "po4a/lib/Locale/Po4a Xml.pm,1.35,1.36"

[Nicolas FRANCOIS]

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

Modified Files:
	Xml.pm 
Log Message:
Support ' and " to delimit the string in an entity.


Index: Xml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Xml.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- Xml.pm	4 Dec 2005 16:44:51 -0000	1.35
+++ Xml.pm	4 Dec 2005 18:03:16 -0000	1.36
@@ -471,10 +471,10 @@
 				$file = 1;
 			}
 			if ((not $file) and (not $includenow)) {
-			    if ($part2 =~ m/"(.*)"(\s*>\s*)/) {
+			    if ($part2 =~ m/^\s*(["'])(.*)\1(\s*>.*)$/s) {
 				my $comment = "Content of the $name entity";
-				my $text = $1;
-				$part2 = $2;
+				my $text = $2;
+				$part2 = $3;
 				$text = $self->translate($text,
 				                         $ref,
 				                         $comment,