Show message when a package isn't in Debian testing

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

5
debian/changelog vendored
View File

@ -1,9 +1,14 @@
ubuntu-dev-tools (0.105) UNRELEASED; urgency=low
[ Siegfried-Angel Gevatter Pujals ]
* pbuilder-dist, doc/pbuilder-dist.1:
- Export the distribution and architecture information to the environment
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
ubuntu-dev-tools (0.104) experimental; urgency=low

View File

@ -26,6 +26,7 @@ use AptPkg::Version;
die("Please install 'devscripts'\n") if(! grep -x "$_/dget", split(':',$ENV{'PATH'}));
my($name)=basename($0);
my($package)=$ARGV[0] || &usage();
my($help)=0;
GetOptions('help' => \$help);
@ -81,7 +82,7 @@ sub getMadison {
my($url)=shift || die("No URL Passed to getMadison: $!\n");
chomp $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;
}
sub getDSC {
@ -131,7 +132,6 @@ sub getDSC {
}
sub usage {
my($name)=basename($0);
die("USAGE: $name [-h] <source package> [target release]\n");
}
sub invalidRelease {