r9860 - in /trunk/libxml-sax-perl/debian: changelog update-perl-sax-parsers

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

Author: ntyni-guest
Date: Tue Nov 27 19:01:20 2007
New Revision: 9860

URL: http://svn.debian.org/wsvn/?sc=1&rev=9860
Log:
* Make update-perl-sax-parsers bail out with an informative error message
  if there's a locally installed XML::SAX module breaking the installation.
  (See #229178)

Modified:
    trunk/libxml-sax-perl/debian/changelog
    trunk/libxml-sax-perl/debian/update-perl-sax-parsers

Modified: trunk/libxml-sax-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libxml-sax-perl/debian/changelog?rev=9860&op=diff
==============================================================================
--- trunk/libxml-sax-perl/debian/changelog (original)
+++ trunk/libxml-sax-perl/debian/changelog Tue Nov 27 19:01:20 2007
@@ -37,8 +37,11 @@
     accept the '$file' argument anymore.
   * README.Debian: add a pointer to the CPAN FAQ entry on uninstalling local 
     modules. Thanks to Streph Treadway <sbt at ginkwunk.net>. (Closes: #229178)
+  * Make update-perl-sax-parsers bail out with an informative error message
+    if there's a locally installed XML::SAX module breaking the installation.
+    (See #229178)
 
- -- Niko Tyni <ntyni at iki.fi>  Sun, 25 Nov 2007 21:46:44 +0200
+ -- Niko Tyni <ntyni at iki.fi>  Sun, 25 Nov 2007 21:54:11 +0200
 
 libxml-sax-perl (0.16-0.1) unstable; urgency=low
 

Modified: trunk/libxml-sax-perl/debian/update-perl-sax-parsers
URL: http://svn.debian.org/wsvn/trunk/libxml-sax-perl/debian/update-perl-sax-parsers?rev=9860&op=diff
==============================================================================
--- trunk/libxml-sax-perl/debian/update-perl-sax-parsers (original)
+++ trunk/libxml-sax-perl/debian/update-perl-sax-parsers Tue Nov 27 19:01:20 2007
@@ -99,7 +99,16 @@
     print "$name: Adding Perl SAX parser module info file of $add...\n"
         unless $quiet;
     
-    XML::SAX->save_parsers_debian( $add, $directory[0], $priority );
+    if (XML::SAX->can('save_parsers_debian')) {
+        XML::SAX->save_parsers_debian( $add, $directory[0], $priority );
+    } else {
+        print STDERR <<EOF;
+Fatal: cannot call XML::SAX->save_parsers_debian(). 
+You probably have a locally installed XML::SAX module.
+See /usr/share/doc/libxml-sax-perl/README.Debian.gz .
+EOF
+        exit 1;
+    }
 }
 elsif ( $remove )
 {