I'm getting an error when trying to validate a DTD. It looks like the
code is assuming an ENTITY to exist, although (as far as I am aware) it
is not mandatory for a DTD.
When I do add an entity to my DTD, I get a different error.
I have attached files which form a test case. The DTD has been validated
using a different tool.
| Subject: | webotech-html-menu.dtd |
Message body not shown because it is not plain text.
| Subject: | testCase.pl |
#!/usr/bin/perl
use strict;
my $file = "webotech-html-menu.dtd";
use XML::DTD::Parser;
my $dp = XML::DTD::Parser->new(1);
open(FH,'< '.$file);
my $rt = '';
$dp->parse(*FH, $rt, $file);
1;