Problem with Mojo::DOM and <dl>...</dl>

gistfile1.txt

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 1;
use Mojo::DOM;

my $string = <<'ENDHTML';
<dl>
  <dt>foo</dt>
  <dd>
    <dl>
       <dt>bar</dt>
       <dd>baz</dd>
    </dl>
  </dd>
</dl>
ENDHTML

my $got = Mojo::DOM->new($string) . "";
is($got,$string);

__END__

1..1
not ok 1
#   Failed test at /tmp/fred.pl line 22.
#          got: '<dl>
#   <dt>foo</dt>
#   <dd>
#     <dl>
#        </dl></dd><dt>bar</dt>
#        <dd>baz</dd>
#     </dl>
#   
# 
# '
#     expected: '<dl>
#   <dt>foo</dt>
#   <dd>
#     <dl>
#        <dt>bar</dt>
#        <dd>baz</dd>
#     </dl>
#   </dd>
# </dl>
# '
# Looks like you failed 1 test of 1.