r9854 - in /trunk/libxml-sax-perl: SAX.pm debian/changelog

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

Author: ntyni-guest
Date: Tue Nov 27 19:00:45 2007
New Revision: 9854

URL: http://svn.debian.org/wsvn/?sc=1&rev=9854
Log:
* Remove an unused Debian modification: XML::SAX->load_parsers() doesn't
  accept the '$file' argument anymore.

Modified:
    trunk/libxml-sax-perl/SAX.pm
    trunk/libxml-sax-perl/debian/changelog

Modified: trunk/libxml-sax-perl/SAX.pm
URL: http://svn.debian.org/wsvn/trunk/libxml-sax-perl/SAX.pm?rev=9854&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX.pm (original)
+++ trunk/libxml-sax-perl/SAX.pm Tue Nov 27 19:00:45 2007
@@ -47,7 +47,6 @@
 sub load_parsers {
     my $class = shift;
     my $dir = shift;
-    my $file = shift;
     
     # reset parsers
     $known_parsers = [];
@@ -55,17 +54,12 @@
     # get directory from wherever XML::SAX is installed
     if (!$dir) {
         $dir = $INC{'XML/SAX.pm'};
-        $dir =  File::Spec->catfile(dirname($dir), "SAX");
-    }
-
-    if (!$file) {
-	# use default file name
-	$file = PARSER_DETAILS;
+        $dir = dirname($dir);
     }
     
     my $fh = gensym();
-    if (!open($fh, File::Spec->catfile($dir, $file))) {
-        XML::SAX->do_warn("could not find $file in $dir\n");
+    if (!open($fh, File::Spec->catfile($dir, "SAX", PARSER_DETAILS))) {
+        XML::SAX->do_warn("could not find " . PARSER_DETAILS . " in $dir/SAX\n");
         return $class;
     }
 

Modified: trunk/libxml-sax-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libxml-sax-perl/debian/changelog?rev=9854&op=diff
==============================================================================
--- trunk/libxml-sax-perl/debian/changelog (original)
+++ trunk/libxml-sax-perl/debian/changelog Tue Nov 27 19:00:45 2007
@@ -31,8 +31,10 @@
     + charset-decoding: Fix charset decoding in the PurePerl module (#405186)
   * Move update-perl-sax-parsers under debian/ in the source package, it's 
     Debian-specific.
+  * Remove an unused Debian modification: XML::SAX->load_parsers() doesn't
+    accept the '$file' argument anymore.
 
- -- Niko Tyni <ntyni at iki.fi>  Sun, 25 Nov 2007 15:56:32 +0200
+ -- Niko Tyni <ntyni at iki.fi>  Sun, 25 Nov 2007 18:22:03 +0200
 
 libxml-sax-perl (0.16-0.1) unstable; urgency=low