r9849 - /trunk/libxml-sax-perl/Makefile.PL

[ntyni-guest at users.alioth.debian.org]

Author: ntyni-guest
Date: Tue Nov 27 19:00:20 2007
New Revision: 9849

URL: http://svn.debian.org/wsvn/?sc=1&rev=9849
Log:
minimize the Debian diff to Makefile.PL and make it more obvious

Modified:
    trunk/libxml-sax-perl/Makefile.PL

Modified: trunk/libxml-sax-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libxml-sax-perl/Makefile.PL?rev=9849&op=diff
==============================================================================
--- trunk/libxml-sax-perl/Makefile.PL (original)
+++ trunk/libxml-sax-perl/Makefile.PL Tue Nov 27 19:00:20 2007
@@ -13,42 +13,45 @@
     'EXE_FILES' => [ 'debian/update-perl-sax-parsers' ],
 );
 
-# sub MY::install {
-#     package MY;
-#     my $script = shift->SUPER::install(@_);
+sub MY::install {
+    package MY;
+    my $script = shift->SUPER::install(@_);
 
-#     # Only modify existing ParserDetails.ini if user agrees
+    print STDERR "Debian build: won't modify ParserDetails.ini when installing.\n";
+    print STDERR "              (use update-perl-sax-parsers(8) instead.)\n";
+    return $script; 
+    
+    # Only modify existing ParserDetails.ini if user agrees
 
-#     my $write_ini_ok = 0;
+    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;
-#         }
-#     }
+    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";
+    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_sax_pureperl :
+\t\@\$(PERL) -MXML::SAX -e "XML::SAX->add_parser(q(XML::SAX::PurePerl))->save_parsers()"
 
-# INSTALL
+INSTALL
 
-#     }
+    }
 
-#     return $script;
-# }
-
+    return $script;
+}