Add support for packages with a name beginning with lib

This commit is contained in:
Nathan Handler 2009-01-02 11:36:39 -06:00
parent bd824b9072
commit d91f26495b
2 changed files with 11 additions and 4 deletions

7
debian/changelog vendored
View File

@ -6,10 +6,11 @@ ubuntu-dev-tools (0.52) UNRELEASED; urgency=low
pbuilder-dist, we will also create a cowbuilder-dist symlink to it. pbuilder-dist, we will also create a cowbuilder-dist symlink to it.
[ Nathan Handler ] [ Nathan Handler ]
* pull-debian-source: Pass -xu arguments to dget to be consistant with * pull-debian-source:
pull-lp-source - Pass -xu arguments to dget to be consistant with pull-lp-source
- Add support for packages with a name beginning with "lib"
-- Nathan Handler <nhandler@ubuntu.com> Fri, 02 Jan 2009 10:35:27 -0600 -- Nathan Handler <nhandler@ubuntu.com> Fri, 02 Jan 2009 11:35:36 -0600
ubuntu-dev-tools (0.51) jaunty; urgency=low ubuntu-dev-tools (0.51) jaunty; urgency=low

View File

@ -78,7 +78,13 @@ sub getDSC {
$version=~s/^.*?\://; $version=~s/^.*?\://;
if($archs=~m/source/) { if($archs=~m/source/) {
print "Package: $package\nVersion: $version\nRelease: $release\nArchitectures: $archs\n"; print "Package: $package\nVersion: $version\nRelease: $release\nArchitectures: $archs\n";
my($firstLetter)=substr($package,0,1); my($firstLetter);
if($package=~m/^lib/) {
$firstLetter="lib" . substr($package,3,1);
}
else {
$firstLetter=substr($package,0,1);
}
my($url)=$baseURL . $firstLetter . '/' . $package . '/' . $package . '_' . $version . '.dsc'; my($url)=$baseURL . $firstLetter . '/' . $package . '/' . $package . '_' . $version . '.dsc';
return $url; return $url;
} }