diff options
Diffstat (limited to 'testing/perl-xml-sax')
| -rw-r--r-- | testing/perl-xml-sax/perl-xml-sax.patch | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/testing/perl-xml-sax/perl-xml-sax.patch b/testing/perl-xml-sax/perl-xml-sax.patch new file mode 100644 index 0000000000..880468b8db --- /dev/null +++ b/testing/perl-xml-sax/perl-xml-sax.patch @@ -0,0 +1,46 @@ +--- 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; +-} +- |