[Po4a-commits] "po4a/lib/Locale/Po4a Xml.pm,1.82,1.83"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv6407/lib/Locale/Po4a

Modified Files:
	Xml.pm 
Log Message:
	* lib/Locale/Po4a/Xml.pm (tag_type): Only call get_string_until()
	and join_lines() once.


Index: Xml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Xml.pm,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -d -r1.82 -r1.83
--- Xml.pm	30 Jan 2009 21:41:49 -0000	1.82
+++ Xml.pm	30 Jan 2009 21:45:02 -0000	1.83
@@ -827,12 +827,12 @@
 	if (!defined($line)) { return -1; }
 
 	$self->unshiftline($line,$ref);
+	my ($eof, at lines) = $self->get_string_until(">",{include=>1,unquoted=>1});
+	my $line2 = $self->join_lines(@lines);
 	while (!$found && $i < @tag_types) {
 		($match1,$match2) = ($tag_types[$i]->{beginning},$tag_types[$i]->{end});
 		if ($line =~ /^<\Q$match1\E/) {
 			if (!defined($tag_types[$i]->{f_extract})) {
-				my ($eof, at lines) = $self->get_string_until(">",{include=>1,unquoted=>1});
-				my $line2 = $self->join_lines(@lines);
 #print substr($line2,length($line2)-1-length($match2),1+length($match2))."\n";
 				if (defined($line2) and $line2 =~ /\Q$match2\E>$/) {
 					$found = 1;