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