← Back to branch summary

~ubuntu-branches/ubuntu/saucy/devscripts/saucy

« back to all changes in this revision

Viewing changes to scripts/debcheckout.pl

  • Committer: Steve Langasek
  • Date: 2012-01-24 18:54:51 UTC
  • mfrom: (10.9.8 sid)
  • Revision ID: steve.langasek@canonical.com-20120124185451-etgj6b2oici5e0k0
Merge version 2.11.3 from Debian

Show diffs side-by-side

added added

removed removed

Lines of Context:
scripts/debcheckout.pl
1
 
#!/usr/bin/perl -w
 
1
#!/usr/bin/perl
2
2
#
3
3
# debcheckout: checkout the development repository of a Debian package
4
4
# Copyright (C) 2007-2009  Stefano Zacchiroli <zack@debian.org>
229
229
use File::Copy qw/copy/;
230
230
use File::Temp qw/tempdir/;
231
231
use Cwd;
 
232
use Dpkg::Compression;
232
233
use lib '/usr/share/devscripts';
233
234
use Devscripts::Versort;
234
235
 
322
323
            ($type, $url) = (lc($2), $3);
323
324
        } elsif ($line =~ /^Version:\s*(.*)$/i) {
324
325
            $version = $1;
325
 
        } elsif ($line =~ /^ [a-f0-9]{32} \d+ (\S+)\.orig\.tar\.gz$/) {
 
326
        } elsif ($line =~ /^ [a-f0-9]{32} \d+ (\S+)\.orig\.tar\.$compression_re_file_ext$/) {
326
327
            $origtgz_name = $1;
327
328
        } elsif ($line =~ /^$/) {
328
329
            push (@repos, [$version, $type, $url, $origtgz_name])