[Po4a-commits] "po4a/lib/Locale/Po4a Sgml.pm,1.84,1.85"

[Nicolas FRANCOIS]

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

Modified Files:
	Sgml.pm 
Log Message:
Do not include the commented entities.


Index: Sgml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -d -r1.84 -r1.85
--- Sgml.pm	20 Nov 2005 16:16:27 -0000	1.84
+++ Sgml.pm	20 Nov 2005 16:23:38 -0000	1.85
@@ -624,6 +624,12 @@
 	    my ($begin,$end)=($1,$2);
 	    $end = "" unless (defined $end);
 
+	    if ($begin =~ m/.*<!--(.*?)$/s and $1 !~ m/-->/s) {
+		# This entity is commented. Just remove it.
+		$origfile = $begin.$end;
+		next;
+	    }
+
 	    # add the refs
 	    my $len  = $entincl{$key}{'length'}; # number added by the inclusion
 	    my $pre  = ($begin =~ tr/\n/\n/); # number of \n