1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 |
- --- a/Makefile.PL 2011-09-04 23:37:48.000000000 +0200
- +++ b/Makefile.PL 2011-10-07 18:12:50.000000000 +0200
- @@ -12,43 +12,3 @@
- 'XML::NamespaceSupport' => 0.03,
- },
- );
- -
- -sub MY::install {
- - package MY;
- - my $script = shift->SUPER::install(@_);
- -
- - # Only modify existing ParserDetails.ini if user agrees
- -
- - my $write_ini_ok = 0;
- -
- - eval { require XML::SAX };
- - if ($@) {
- - $write_ini_ok = 1;
- - }
- - else {
- - my $dir = File::Basename::dirname($INC{'XML/SAX.pm'});
- - if (-e File::Spec->catfile($dir, 'SAX', 'ParserDetails.ini')) {
- - $write_ini_ok =
- - ExtUtils::MakeMaker::prompt(
- - "Do you want XML::SAX to alter ParserDetails.ini?", "Y"
- - ) =~ /^y/i;
- - }
- - else {
- - $write_ini_ok = 1;
- - }
- - }
- -
- - if ($write_ini_ok) {
- - $script =~ s/install :: (.*)$/install :: $1 install_sax_pureperl/m;
- - $script .= <<"INSTALL";
- -
- -install_sax_pureperl :
- -\t\@\$(PERL) -MXML::SAX -e "XML::SAX->add_parser(q(XML::SAX::PurePerl))->save_parsers()"
- -
- -INSTALL
- -
- - }
- -
- - return $script;
- -}
- -
|