[debpool] Bug#518104: debpool: Fails when trying to install a newer version without rollback

[Luis Rodrigo Gallardo Cruz]

Package: debpool
Version: 0.5.1
Severity: normal
Tags: patch


When trying to install newer versions of packages, debpool dies when comparing
the version numbers. The following patch fixes this:

-------------------------------------------------------------------------------
diff -ubr /usr/share/perl5/DebPool/Packages.pm DebPool/Packages.pm
--- /usr/share/perl5/DebPool/Packages.pm	2008-10-27 15:20:19.000000000 -0700
+++ DebPool/Packages.pm	2009-03-03 21:45:56.000000000 -0800
@@ -160,7 +160,7 @@
         return 1;
     }
 
-    if (!Dpkg_Compare_Versions($version, 'gt', $old_version)) {
+    if (!Dpkg_Compare_Version($version, 'gt', $old_version)) {
         # DPKG says no go.
         my $msg = "Version comparison for '$package': proposed version for ";
         $msg .= "$distribution ($version) is not greater than current ";
-------------------------------------------------------------------------------


-- System Information:
Debian Release: 5.0
  APT prefers testing
  APT policy: (500, 'testing'), (250, 'unstable'), (1, 'experimental')
Architecture: amd64 (x86_64)

Kernel: Linux 2.6.26-1-amd64 (SMP w/2 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

Versions of packages debpool depends on:
ii  libarchive-ar-perl            1.13b-2    perl interface for manipulating ar
ii  libcompress-bzip2-perl        2.09-2     Perl interface to Bzip2 compressio
ii  libproc-daemon-perl           0.03-2     Run Perl program as a daemon proce
ii  perl                          5.10.0-19  Larry Wall's Practical Extraction 

Versions of packages debpool recommends:
ii  gnupg                       1.4.9-3      GNU privacy guard - a free PGP rep
ii  liblinux-inotify2-perl      1:1.1-2.1+b1 scalable directory/file change not

debpool suggests no packages.

-- no debconf information