Lubuntu/ubuntu-dev-tools
3
0
Fork 0
mirror of https://git.launchpad.net/ubuntu-dev-tools synced 2025-03-26 18:31:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

* pull-debian-source:

Browse Source 
- Show message when a package isn't in Debian testing (LP: #529041).
This commit is contained in:
Stefano Rivera 2010-10-17 12:07:34 +02:00
commit 4ab5841b20
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debian/changelog vendored
View File

@ -11,7 +11,11 @@ ubuntu-dev-tools (0.105) UNRELEASED; urgency=low
[ Kees Cook ] [ Kees Cook ]
* mk-sbuild: use --no-install-recommends on Debian too (Closes: 599699). * mk-sbuild: use --no-install-recommends on Debian too (Closes: 599699).
-- Kees Cook <kees@ubuntu.com> Wed, 13 Oct 2010 13:20:53 -0700 [ Marco Rodrigues ]
* pull-debian-source:
- Show message when a package isn't in Debian testing (LP: #529041).
-- Kees Cook <kees@ubuntu.com> Sun, 17 Oct 2010 12:07:12 +0200
ubuntu-dev-tools (0.104) experimental; urgency=low ubuntu-dev-tools (0.104) experimental; urgency=low

4
pull-debian-source
View File

@ -26,6 +26,7 @@ use AptPkg::Version;
die("Please install 'devscripts'\n") if(! grep -x "$_/dget", split(':',$ENV{'PATH'})); die("Please install 'devscripts'\n") if(! grep -x "$_/dget", split(':',$ENV{'PATH'}));
my($name)=basename($0);
my($package)=$ARGV[0] || &usage(); my($package)=$ARGV[0] || &usage();
my($help)=0; my($help)=0;
GetOptions('help' => \$help); GetOptions('help' => \$help);
@ -81,7 +82,7 @@ sub getMadison {
my($url)=shift || die("No URL Passed to getMadison: $!\n"); my($url)=shift || die("No URL Passed to getMadison: $!\n");
chomp $url; chomp $url;
my($madison)=get($url); my($madison)=get($url);
die("Could Not Get $url") unless (defined $madison && $madison!~m/^\s*$/); die("The source package $package isn't available in Debian testing.\nRun $name $package unstable if the package has not yet migrated from Debian unstable to Debian testing.\n") unless ($release=~m/testing/ && $madison!~m/^\s*$/);
return $madison; return $madison;
} }
sub getDSC { sub getDSC {
@ -131,7 +132,6 @@ sub getDSC {
} }
sub usage { sub usage {
my($name)=basename($0);
die("USAGE: $name [-h] <source package> [target release]\n"); die("USAGE: $name [-h] <source package> [target release]\n");
} }
sub invalidRelease { sub invalidRelease {