← Back to branch summary

~ubuntu-branches/ubuntu/precise/devscripts/precise

« back to all changes in this revision

Viewing changes to scripts/dget.pl

  • Committer: Bazaar Package Importer
  • Author(s): Loïc Minier
  • Date: 2010-10-19 00:53:21 UTC
  • mfrom: (10.7.6 sid)
  • Revision ID: james.westby@ubuntu.com-20101019005321-mib7n3fc8bcexmos
Tags: 2.10.68ubuntu1
https://launchpad.net/bugs/429288
* Merge from Debian unstable; remaining changes:
  - Demote Recommends to Suggests:
    + libcrypt-ssleay-perl: only needed for a corner case (uscan on SSL
      download sites), wasn't installed by default in previous releases
      either, and seems quite dead upstream; universe only.
    + libsoap-lite-perl: only needed for one less common command ("select")
      for bts, which isn't useful for Ubuntu itself, and pulls in a lot of
      other universe Perl libraries; universe only.
    + debian-{keyring,maintainers}: not useful enough in Ubuntu; universe
      only.
    + equivs: too much of a hack to install by default; universe only.
    + libyaml-syck-perl: transition-check is fairly Debian-specific.
  - scripts/debchange.{pl,1}:
    + Adjust --security template for Ubuntu.
    + Add -U/--upstream flag that forces original "just increment
      the end" behaviour; Ubuntu is upstream for some pieces of software.
    + Add --distributor= and DEBCHANGE_DISTRIBUTOR to override lsb_release
      output.
    + Default to "maverick" as distribution.
    + Add "ubuntu1" to version string for new versions, with tweaks for
      special cases.
    + Add -R/--rebuild flag for Ubuntu's no-change rebuilds.
    + Don't use the last distribution in debian/changelog when doing
      "dch -r" on Ubuntu. "Just because it was last uploaded to jaunty
      doesn't mean that's the right thing to do now." Thanks to Colin
      Watson. (LP: #429288)
  - scripts/debcommit.pl: support commiting to bzr from debian/.
  - scripts/debsign.{sh,1}: Implement DEBSIGN_ALWAYS_RESIGN variable to skip
    the "Would you like to use the current signature?" question. (Debian
    #447955)
  - scripts/debuild.pl: Enforce Ubuntu merge policy.
  - scripts/dscverify.pl: Add Ubuntu keyrings.
  - scripts/rmadison.pl: Change default URL parameter to ubuntu.
  - Add test/debchange.pl, test/Makefile: debchange test suite; call it
    during build in debian/rules. Also add lsb-release build dependency for
    this, so that debchange uses Ubuntu mode.
* scripts/debchange.pl: Move declaration of $opt_distributor before
  .devscripts / environment parsing.

Show diffs side-by-side

added added

removed removed

Lines of Context:
scripts/dget.pl
262
262
        if ($qversion and /^ [ *]{3} ($qversion) 0/) {
263
263
            while (<$apt>) {
264
264
                last OUTER unless /^  *(?:\d+) (\S+)/;
265
 
                push @hosts, $1;
 
265
                (my $host = $1) =~ s@/$@@;
 
266
                next if $host eq '/var/lib/dpkg/status';
 
267
                push @hosts, $host;
266
268
            }
267
269
        }
268
270
    }
274
276
        die "$progname: no hostnames in apt-cache policy $package for $version found\n";
275
277
    }
276
278
 
277
 
    $apt = new IO::File("LC_ALL=C apt-cache --all-versions show $package |")
 
279
    $apt = new IO::File("LC_ALL=C apt-cache show $package=$version |")
278
280
        or die "$!";
279
281
    my ($v, $p, $filename, $md5sum);
280
282
    while (<$apt>) {
312
314
    if (-f "/etc/apt/sources.list") {
313
315
        $apt = new IO::File("/etc/apt/sources.list") or die "/etc/apt/sources.list: $!";
314
316
        while (<$apt>) {
315
 
            if (/^\s*deb\s*($host_re\S+)/) {
 
317
            if (/^\s*deb\s*($host_re\b)/) {
316
318
                push @repositories, $1;
317
319
            }
318
320
        }
325
327
        $_ = "/etc/apt/sources.list.d/$_";
326
328
        $apt = new IO::File("$_") or die "$_: $!";
327
329
        while (<$apt>) {
328
 
            if (/^\s*deb\s*($host_re\S+)/) {
 
330
            if (/^\s*deb\s*($host_re\b)/) {
329
331
                push @repositories, $1;
330
332
            }
331
333
        }