use strict; use inc::Module::Install; eval { require XML::SAX; my $mod = 'XML::LibXML::SAX::ChunkParser'; if( grep {$_->{'Name'} eq $mod} @{XML::SAX->parsers()} ) { my $y = prompt(<remove_parser($mod)->save_parsers() } } }; if ($@) { print STDERR <SUPER::install(@_); # if (ExtUtils::MakeMaker::prompt( # "Do you want to modify ParserDetails.ini?", 'Y') # =~ /^y/i) { # $script =~ s/install :: (.*)$/install :: $1 install_sax_driver/m; # $script .= <<"INSTALL"; # #install_sax_driver : #\t\@\$(PERL) -MXML::SAX -e "XML::SAX->add_parser(q(\$(NAME)))->save_parsers()" # #INSTALL # } # return $script; #}