require 5.005;
use strict;
use ExtUtils::MakeMaker;
my @extra;
my @define;
my $ans = "y"; if ($ans =~ /^y(es)?$/i) {
push(@define, "-DMARKED_SECTION");
}
if ($] >= 6.008) {
print <<"EOT";
Perl-5.8 provide core support for Unicode strings. You can compile
HTML::Entities so that Unicode entities like € and &decoded into a string containing "\\x{20AC}". If you select no to
the question below such entities will be left alone and only entities
in the Latin-1 range is decoded.
EOT
my $ans = prompt("Do you want decoding on unicode entities?", "no");
if ($ans =~ /^y(es)?$/i) {
push(@define, "-DUNICODE_ENTITIES");
}
}
push(@extra, "DEFINE" => "@define") if @define;
WriteMakefile(
NAME => 'HTML::Parser',
VERSION_FROM => 'Parser.pm',
H => [ "hparser.h", "hctype.h", "tokenpos.h", "pfunc.h",
"hparser.c", "util.c",
],
PREREQ_PM => {
'HTML::Tagset' => 3,
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'hctype.h pfunc.h' },
@extra,
);
sub MY::postamble
{
'
pfunc.h : mkpfunc
$(PERL) mkpfunc >pfunc.h
hctype.h : mkhctype
$(PERL) mkhctype >hctype.h
'
}