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 2003/11/10 19:13:32 UTC
svn commit: rev 114 - xml/xerces-p/trunk
Author: jasons
Date: Mon Nov 10 10:13:32 2003
New Revision: 114
Modified:
xml/xerces-p/trunk/postModule.pl
Log:
can no longer benefit from cached CallbackHandler object, some bug
is calling the wrong pointer value for set_callback_obj(), so
we must create a new one each time
Modified: xml/xerces-p/trunk/postModule.pl
==============================================================================
--- xml/xerces-p/trunk/postModule.pl (original)
+++ xml/xerces-p/trunk/postModule.pl Mon Nov 10 10:13:32 2003
@@ -309,7 +309,8 @@
my (\$self,\$handler) = \@_;
my \$retval;
my \$callback = \$XML::Xerces::$ {class}::OWNER{\$self}->{__ERROR_HANDLER};
- if (defined \$callback) {
+# if (defined \$callback) {
+ if (0) {
\$retval = \$callback->set_callback_obj(\$handler);
} else {
\$callback = XML::Xerces::PerlErrorCallbackHandler->new(\$handler);
@@ -331,7 +332,8 @@
sub setEntityResolver {
my (\$self,\$handler) = \@_;
my \$callback = \$XML::Xerces::$ {class}::OWNER{\$self}->{__ENTITY_RESOLVER};
- if (defined \$callback) {
+# if (defined \$callback) {
+ if (0) {
\$callback->set_callback_obj(\$handler);
} else {
\$callback = XML::Xerces::PerlEntityResolverHandler->new(\$handler);
@@ -349,7 +351,8 @@
sub setDocumentHandler {
my ($self,$handler) = @_;
my $callback = $XML::Xerces::SAXParser::OWNER{$self}->{__DOCUMENT_HANDLER};
- if (defined $callback) {
+# if (defined \$callback) {
+ if (0) {
$callback->set_callback_obj($handler);
} else {
$callback = XML::Xerces::PerlDocumentCallbackHandler->new($handler);
@@ -369,7 +372,8 @@
sub setContentHandler {
my ($self,$handler) = @_;
my $callback = $XML::Xerces::SAX2XMLReader::OWNER{$self}->{__CONTENT_HANDLER};
- if (defined $callback) {
+# if (defined \$callback) {
+ if (0) {
$callback->set_callback_obj($handler);
} else {
$callback = XML::Xerces::PerlContentCallbackHandler->new($handler);
@@ -388,7 +392,8 @@
sub createTreeWalker {
my ($self,$root,$what,$filter,$expand) = @_;
my $callback = $XML::Xerces::DOMTreeWalker::OWNER{$self}->{__NODE_FILTER};
- if (defined $callback) {
+# if (defined \$callback) {
+ if (0) {
$callback->set_callback_obj($filter);
} else {
$callback = XML::Xerces::PerlNodeFilterCallbackHandler->new($filter);
@@ -411,7 +416,8 @@
sub createNodeIterator {
my ($self,$root,$what,$filter,$expand) = @_;
my $callback = $XML::Xerces::DOMNodeIterator::OWNER{$self}->{__NODE_FILTER};
- if (defined $callback) {
+# if (defined \$callback) {
+ if (0) {
$callback->set_callback_obj($filter);
} else {
$callback = XML::Xerces::PerlNodeFilterCallbackHandler->new($filter);
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org