Update of dtdparse/XML/DTDParse
Modified Files:
Catalog.pm
Log Message:
Fixed bug where extraneous whitespace in pubids cause lookup failures.
======================================================================
FILE: dtdparse/XML/DTDParse/Catalog.pm
<http://cvs.sourceforge.net/viewcvs.py/dtdparse/*checkout*/dtdparse/XML/DTDParse/Catalog.pm?rev=1.2>
<http://cvs.sourceforge.net/viewcvs.py/dtdparse/dtdparse/XML/DTDParse/Catalog.pm.diff?r1=1.1.1.1&r2=1.2&diff_format=h>
--- Catalog.pm 3 Jul 2001 19:02:23 -0000 1.1.1.1
+++ Catalog.pm 17 Jun 2005 21:56:09 -0000 1.2
@@ -85,4 +85,5 @@
my($self, $pubid) = @_;
+ $pubid =~ s/\s+/ /g;
return $self->_find('PUBID', $pubid);
}
@@ -112,4 +113,5 @@
my($self, $pubid) = @_;
+ $pubid =~ s/\s+/ /g;
foreach my $dir (@{$self->{'DIRECTIVE'}}) {
my %hash = %{$dir};