Bug#407293: doesn't handle ~ in get_apt_policy

[Frank Lichtenheld]

Package: sbuild
Version: 0.52
Severity: important
Tags: patch

Sbuild doesn't handle ~ in versions in get_apt_policy.
Patch attached.

Gruesse,
        Frank Lichtenheld

-- System Information:
Debian Release: 4.0
  APT prefers testing
  APT policy: (990, 'testing'), (500, 'unstable'), (1, 'experimental')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.18-3-k7
Locale: LANG=de_DE.UTF-8, LC_CTYPE=de_DE.UTF-8 (charmap=UTF-8)

diff -Naur sbuild-0.52.old/sbuild sbuild-0.52/sbuild
--- sbuild-0.52.old/sbuild      2006-10-21 22:30:08.000000000 +0200
+++ sbuild-0.52/sbuild  2007-01-17 13:20:40.000000000 +0100
@@ -1747,9 +1747,9 @@
                or die "Cannot start $conf::apt_cache $!\n";
        while(<APTCACHE>) {
                $package=$1 if /^([0-9a-z+.-]+):$/;
-               $packages{$package}->{curversion}=$1 if /^ {2}Installed: 
([0-9a-zA-Z-.:+]*)$/;
-               $packages{$package}->{defversion}=$1 if /^ {2}Candidate: 
([0-9a-zA-Z-.:+]*)$/;
-               push @{$packages{$package}->{versions}}, "$2" if /^ (\*{3}| 
{3}) ([0-9a-zA-Z-.:+]*) 0$/;
+               $packages{$package}->{curversion}=$1 if /^ {2}Installed: 
([0-9a-zA-Z-.:~+]*)$/;
+               $packages{$package}->{defversion}=$1 if /^ {2}Candidate: 
([0-9a-zA-Z-.:~+]*)$/;
+               push @{$packages{$package}->{versions}}, "$2" if /^ (\*{3}| 
{3}) ([0-9a-zA-Z-.:~+]*) 0$/;
        }
        die "$conf::apt_cache exit status $?\n" if $?;