Hey Paul,

More poking around, and  I find that there are troubles w/ the toString
method, it loses the spaces around pipes and double/single quotes (so:
my $str = <<END;
<!DOCTYPE simpsons [
 <!ELEMENT person (#PCDATA)> 
 <!ATTLIST person
  name CDATA #REQUIRED
  hair (none | blue | yellow) "yellow"

becomes:
hair (none|blue|yellow) 'yellow'

This was the errors I saw in attr.t and print.t (or dom_attr.t
dom_print.t). attr.t also use a missing (?) method (or a bad
assumption), so I added:

package XML::Parser::ContentModel

sub equals
{
    my ($self, $other, $cmp) = @_;

    return 1;
}

to CmpDOM.pm to solve that.  However, this was when trying to install
Bundle::XML, trying again for XML::DOM now gets the libxml-enno bundle,
which fails a bunch more tests.  Looking at some of them, the spaces
around pipes seems to be a problem still.  Don't know how it should be
handle in real XML.

a

Andy Bach, sys mgr
andy@wiwb.uscourts.gov