1# t/xhtml-bkb.t - https://rt.cpan.org/Public/Bug/Display.html?id=77686
2
3use strict;
4use warnings;
5use Test::More tests => 1;
6use Pod::Simple::XHTML;
7my $c = <<EOF;
8=head1 Documentation
9
10=head2 Changes to Existing Documentation
11
12=head3 L<perldata>
13EOF
14my $d = Pod::Simple::XHTML->new ();
15$d->index (1);
16my $e;
17$d->output_string (\$e);
18$d->parse_string_document ($c);
19unlike ($e, qr!<a[^>]+><a[^>]+>!);
20