You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@xerces.apache.org by ja...@apache.org on 2001/08/02 04:46:42 UTC
cvs commit: xml-xerces/perl postModule.pl
jasons 01/08/01 19:46:42
Modified: perl postModule.pl
Log:
* postModule.pl (Repository):
New XML::Xerces::PerlEntityResolver class
Fix to call EntityResolver->set_callback_obj() and not ErrorHandler
Revision Changes Path
1.16 +14 -1 xml-xerces/perl/postModule.pl
Index: postModule.pl
===================================================================
RCS file: /home/cvs/xml-xerces/perl/postModule.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- postModule.pl 2001/07/09 23:17:52 1.15
+++ postModule.pl 2001/08/02 02:46:42 1.16
@@ -410,7 +410,7 @@
use vars qw(\$__ENTITY_RESOLVER);
sub setEntityResolver {
my (\$self,\$handler) = \@_;
- my \$callback = XML::Xerces::PerlErrorCallbackHandler->new();
+ my \$callback = XML::Xerces::PerlEntityResolverHandler->new();
\$callback->set_callback_obj(\$handler);
XML::Xercesc::$ {class}_setEntityResolver(\$self,\$callback);
\$__ENTITY_RESOLVER = \$callback;
@@ -497,6 +497,19 @@
sub processing_instruction {}
sub set_document_locator {}
sub ignorable_whitespace {}
+
+
+############# Class : XML::Xerces::PerlEntityResolver ##############
+package XML::Xerces::PerlEntityResolver;
+@ISA = qw();
+sub new {
+ my $class = shift;
+ return bless {}, $class;
+}
+
+sub resolve_entity {
+ return undef;
+}
############# Class : XML::Xerces::PerlErrorHandler ##############
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org