perl-XML-SAX-noalter.patch

   1 --- XML-SAX-0.14/Makefile.PL.orig       2006-06-19 09:41:04.000000000 +0200
   2 +++ XML-SAX-0.14/Makefile.PL    2006-06-19 09:42:49.000000000 +0200
   3 @@ -12,42 +12,4 @@
   4      },
   5  );
   6
   7 -sub MY::install {
   8 -    package MY;
   9 -    my $script = shift->SUPER::install(@_);
  10 -
  11 -    # Only modify existing ParserDetails.ini if user agrees
  12 -
  13 -    my $write_ini_ok = 0;
  14 -
  15 -    eval { require XML::SAX };
  16 -    if ($@) {
  17 -        $write_ini_ok = 1;
  18 -    }
  19 -    else {
  20 -        my $dir = File::Basename::dirname($INC{'XML/SAX.pm'});
  21 -        if (-e File::Spec->catfile($dir, 'SAX', 'ParserDetails.ini')) {
  22 -            $write_ini_ok =
  23 -                ExtUtils::MakeMaker::prompt(
  24 -                    "Do you want XML::SAX to alter ParserDetails.ini?", "Y"
  25 -                ) =~ /^y/i;
  26 -        }
  27 -        else {
  28 -            $write_ini_ok = 1;
  29 -        }
  30 -    }
  31 -
  32 -    if ($write_ini_ok) {
  33 -        $script =~ s/install :: (.*)$/install :: $1 install_sax_pureperl/m;
  34 -        $script .= <<"INSTALL";
  35 -
  36 -install_sax_pureperl :
  37 -\t\@\$(PERL) -MXML::SAX -e "XML::SAX->add_parser(q(XML::SAX::PurePerl))->save_parsers()"
  38 -
  39 -INSTALL
  40 -
  41 -    }
  42 -
  43 -    return $script;
  44 -}
  45