[Po4a-commits] "po4a/lib/Locale/Po4a Sgml.pm,1.88,1.89"

[Nicolas FRANCOIS]

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

Modified Files:
	Sgml.pm 
Log Message:
Force some spaces in the regular expressions.


Index: Sgml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -d -r1.88 -r1.89
--- Sgml.pm	20 Nov 2005 17:53:02 -0000	1.88
+++ Sgml.pm	20 Nov 2005 20:03:47 -0000	1.89
@@ -523,7 +523,7 @@
 	$prolog =~ s/{PO4A-percent}/%/sg;
         print STDERR "prolog=>>>>$prolog<<<<\n"
 	      if ($debug{'entities'});
-	while ($prolog =~ /(.*?)<!ENTITY\s*%\s*(\S*)\s*SYSTEM\s*"([^>"]*)"\s*>(.*)$/is) {  #})"{ (Stupid editor)
+	while ($prolog =~ /(.*?)<!ENTITY\s*%\s*(\S*)\s+SYSTEM\s*"([^>"]*)"\s*>(.*)$/is) {  #})"{ (Stupid editor)
 	    print STDERR "Seen the definition entity of prolog inclusion '$2' (=$3)\n"
 	      if ($debug{'entities'});
 	    # Preload the content of the entity.
@@ -591,7 +591,7 @@
     #   search the file inclusion entities
     my %entincl;
     my $searchprolog=$prolog;
-    while ($searchprolog =~ /(.*?)<!ENTITY\s(\S*)\s*SYSTEM\s*"([^>"]*)"\s*>(.*)$/is) {  #})"{
+    while ($searchprolog =~ /(.*?)<!ENTITY\s+(\S*)\s+SYSTEM\s*"([^>"]*)"\s*>(.*)$/is) {  #})"{
 	print STDERR "Seen the entity of inclusion $2 (=$3)\n"
 	  if ($debug{'entities'});
 	my $key = $2;