Select Code to Download

Select or download this

t/astress...........Unrecognized escape \d passed through at blib/lib/
+XML/DOM.pm line 136.

Select or download this

# blib/lib/XML/DOM.pm line number 136 change:

...
# to ...

$ReCharRef  = qr!(?:\&#(?:\d+|x[0-9a-fA-F]+);)!;

Select or download this

t/attr..............Can't locate object method "equals" via package "X
+ML::Parser::ContentModel" at CmpDOM.pm line 168.

Select or download this

  if (ref ($p1))
  {
      return 0 unless $p1->equals ($p2, $cmp);
  }

Select or download this

# roughly line 500
sub equals {
  $_[1] && $_[2] && return $_[0];
  undef;
}

Select or download this

t/attr..............ok 23/23FAILED test 3                             
+       
        Failed 1/23 tests, 95.65% okay
...

t/print.............ok 3/3FAILED test 2                               
+       
        Failed 1/3 tests, 66.67% okay

Select or download this

my $str = <<END;
<!DOCTYPE simpsons [
...
# warn "out - $out | str - $str";

assert_ok ($out eq $str);

Select or download this

# this...

...
hair (none | blue | yellow) "yellow"

# which is from the HEREDOC above.

Select or download this

# change this...
 <!ELEMENT doc (beavis|butthead)*>
...
 <!ELEMENT doc (beavis | butthead)*>

# and all is well.