XXX: Things Get Uglier

• package XML::Twig::XPath;

• use XML::XPath;

• BEGIN

• { package XML::XPath::NodeSet;

• no warnings; # to avoid the "Subroutine sort redefined" message

• sub sort { my $self = CORE::shift; # NodeSet has a shift method

• @$self = CORE::sort { $a->node_cmp( $b) } @$self;

• # { $a->get_global_pos <=> $b->get_global_pos }

• return $self; } }