295 |
my $strict_check = $od->strict_error_checking; |
my $strict_check = $od->strict_error_checking; |
296 |
$od->strict_error_checking (0); |
$od->strict_error_checking (0); |
297 |
my $cfg = $od->dom_config; |
my $cfg = $od->dom_config; |
298 |
my $er_copy_asis = $cfg->{'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree'}; |
my $er_copy_asis |
299 |
|
= $cfg->get_parameter |
300 |
|
(q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree>); |
301 |
|
|
302 |
my $r; |
my $r; |
303 |
my @udh; |
my @udh; |
330 |
} else { |
} else { |
331 |
$r = $clone; |
$r = $clone; |
332 |
} |
} |
333 |
$clone->element_content_whitespace (1) |
$clone->is_element_content_whitespace (1) |
334 |
if $node->element_content_whitespace; |
if $node->is_element_content_whitespace; |
335 |
} elsif ($nt == ATTRIBUTE_NODE) { |
} elsif ($nt == ATTRIBUTE_NODE) { |
336 |
$clone = $od->create_attribute_ns |
$clone = $od->create_attribute_ns |
337 |
($node->namespace_uri, [$node->prefix, $node->local_name]); |
($node->namespace_uri, [$node->prefix, $node->local_name]); |