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

Show message when a package isn't in Debian testing

Browse Source
This commit is contained in:
Marco Rodrigues 2010-09-27 22:45:19 +01:00
parent 3515d7ac78
commit af95fac84c
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debian/changelog vendored
View File

@ -1,9 +1,14 @@
ubuntu-dev-tools (0.105) UNRELEASED; urgency=low ubuntu-dev-tools (0.105) UNRELEASED; urgency=low
[ Siegfried-Angel Gevatter Pujals ]
* pbuilder-dist, doc/pbuilder-dist.1: * pbuilder-dist, doc/pbuilder-dist.1:
- Export the distribution and architecture information to the environment - Export the distribution and architecture information to the environment
so that it is available in pbuilderrc, etc. (LP: #628933). so that it is available in pbuilderrc, etc. (LP: #628933).
[ Marco Rodrigues ]
* pull-debian-source:
- Show message when a package isn't in Debian testing (LP: #529041).
-- Siegfried-Angel Gevatter Pujals <rainct@ubuntu.com> Sun, 26 Sep 2010 17:36:59 +0200 -- Siegfried-Angel Gevatter Pujals <rainct@ubuntu.com> Sun, 26 Sep 2010 17:36:59 +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 {