r9813 - in /trunk/libxml-sax-perl: SAX.pm update-perl-sax-parsers

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

Author: ntyni-guest
Date: Tue Nov 27 18:57:14 2007
New Revision: 9813

URL: http://svn.debian.org/wsvn/?sc=1&rev=9813
Log:
actually support --priority 0

Modified:
    trunk/libxml-sax-perl/SAX.pm
    trunk/libxml-sax-perl/update-perl-sax-parsers

Modified: trunk/libxml-sax-perl/SAX.pm
URL: http://svn.debian.org/wsvn/trunk/libxml-sax-perl/SAX.pm?rev=9813&op=diff
==============================================================================
--- trunk/libxml-sax-perl/SAX.pm (original)
+++ trunk/libxml-sax-perl/SAX.pm Tue Nov 27 18:57:14 2007
@@ -226,7 +226,9 @@
     $class->add_parser($parser_module);
     
     # get parser's ParserDetails file
-    my $file = File::Spec->catfile($directory, $priority . "-" . $parser_module);
+    my $file = $parser_module;
+    $file = "${priority}-$file" if $priority != 0;
+    $file = File::Spec->catfile($directory, $file);
     chmod 0644, $file;
     unlink($file);
     

Modified: trunk/libxml-sax-perl/update-perl-sax-parsers
URL: http://svn.debian.org/wsvn/trunk/libxml-sax-perl/update-perl-sax-parsers?rev=9813&op=diff
==============================================================================
--- trunk/libxml-sax-perl/update-perl-sax-parsers (original)
+++ trunk/libxml-sax-perl/update-perl-sax-parsers Tue Nov 27 18:57:14 2007
@@ -100,7 +100,9 @@
     print "$name: Removing Perl SAX parser module info file of $remove...\n"
         unless $quiet;
     
-    my $parser_file = File::Spec->catfile( $directory[0], $priority . "-" . $remove);
+    my $parser_file = $remove;
+    $parser_file = "${priority}-$parser_file" if $priority != 0;
+    $parser_file = File::Spec->catfile( $directory[0], $parser_file );
     unlink( $parser_file );
 }
 elsif ( $update )