[SCM] Debian package checker branch, master, updated. 2.2.2-39-g601fbd1

["Russ Allbery" <rra@debian.org>]

The following commit has been merged in the master branch:
commit 3279cf2bc08961a379013b07591ab5a6390d714b
Author: Raphael Geissert <atomo64@gmail.com>
Date:   Sat Feb 7 19:20:30 2009 -0600

    Make the code compatible with etch; Dpkg::Version didn't exist by then.

diff --git a/unpack/unpack-srcpkg-l1 b/unpack/unpack-srcpkg-l1
index 854cfe7..898e583 100755
--- a/unpack/unpack-srcpkg-l1
+++ b/unpack/unpack-srcpkg-l1
@@ -36,7 +36,6 @@ use Util;
 
 use File::Basename;
 use Lintian::Command qw(spawn);
-use Dpkg::Version qw(parseversion);
 
 # stat $file
 (my @stat = stat $file) or fail("$file: cannot stat: $!");
@@ -61,7 +60,17 @@ for my $field (keys %$data) {
 my $dir = dirname($file);
 my $name = basename($file);
 my $tarball;
-my %version = parseversion($data->{'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;
+}
+
 my $basename = $data->{'source'} . '_' . $version{'version'};
 my $basenamerev = $data->{'source'} . '_' . $data->{'version'};
 

-- 
Debian package checker