[SCM] Debian package checker branch, master, updated. 2.2.3-12-ga2fb940

["Adam D. Barratt" <adam@adam-barratt.org.uk>]

The following commit has been merged in the master branch:
commit 2367d6775bca1a80076da1c44a39305af6175203
Author: Raphael Geissert <atomo64@gmail.com>
Date:   Mon Feb 9 21:32:56 2009 +0000

    Fix an error attempting to find the source tarball for epoched versions

diff --git a/unpack/unpack-srcpkg-l1 b/unpack/unpack-srcpkg-l1
index 303a5fe..028f058 100755
--- a/unpack/unpack-srcpkg-l1
+++ b/unpack/unpack-srcpkg-l1
@@ -59,18 +59,16 @@ for my $field (keys %$data) {
 # Install symbolic links to source package files
 my (undef, $dir, $name) = File::Spec->splitpath($file);
 my $tarball;
-my %version;
+my $version;
 
 # Based on Dpkg::Versionn::parseversion:
-if ($data->{'version'} =~ /(.+)-(.*)$/) {
-    $version{'version'} = $1;
-    $version{'revision'} = $2;
-} else {
-    $version{'version'} = $data->{'version'};
-    $version{'revision'} = 0;
+$version = $data->{'version'};
+if ($version =~ /:/) {
+    $version =~ s/^(?:\d+):(.+)/$1/ or fail("bad version number '$version'");
 }
+$version =~ s/(.+)-(.*)$/$1/;
 
-my $basename = $data->{'source'} . '_' . $version{'version'};
+my $basename = $data->{'source'} . '_' . $version;
 my $basenamerev = $data->{'source'} . '_' . $data->{'version'};
 
 symlink($file,"$base_dir/dsc") or fail("cannot symlink dsc file: $!");

-- 
Debian package checker