[Po4a-commits] "po4a/lib/Locale/Po4a Xml.pm,1.82,1.83"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Fri Jan 30 21:45:04 UTC 2009
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;
More information about the Po4a-commits
mailing list