The following commit has been merged in the master branch:
commit 2367d6775bca1a80076da1c44a39305af6175203
Author: Raphael Geissert <[email protected]>
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
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
