blob: b2db7d241f7aaf3a696711e5f6bcb07d46e92f9a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
--- XML-SAX-0.96/Makefile.PL.orig 2008-08-04 23:07:21.000000000 +0200
+++ XML-SAX-0.96/Makefile.PL 2008-12-09 11:52:24.806540909 +0100
@@ -12,42 +12,3 @@
},
);
-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;
-}
-
|
