Peppermint
/
debian-cd-clone
mirror of https://salsa.debian.org/images-team/debian-cd.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add support for using unstable tasks packages when debugging

This commit is contained in:
Steve McIntyre 2012-07-08 18:16:05 +00:00
parent 69284b5972
commit 024f95622f
1 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
tools/sort_deps
View File

@ -31,11 +31,9 @@ my $adir = "$ENV{'APTTMP'}/$ENV{'CODENAME'}-$ENV{'ARCH'}";
my $arch = "$ENV{'ARCH'}";
my $dir = "$ENV{'TDIR'}/$ENV{'CODENAME'}";
my $force_unstable_tasks = 0;
if (defined($ENV{'FORCE_SID_TASKSEL'}) and $ENV{'FORCE_SID_TASKSEL'} eq '1') {
$force_unstable_tasks = 1;
}
my $force_unstable_tasks = read_env('FORCE_SID_TASKSEL', 0);
my $tasks_packages = read_env('TASKS_PACKAGES',
"$ENV{'MIRROR'}/dists/sid/main/binary-$ENV{'ARCH'}/Packages.gz)");
my @output;
$| = 1; # Autoflush for debugging
@ -93,9 +91,28 @@ open(AVAIL, "$apt cache dumpavail |") || die "Can't fork : $!\n";
my ($p, $re);
while (defined($_=<AVAIL>)) {
next if not m/^Package: (\S+)\s*$/m;
parse_package($_);
if (!$force_unstable_tasks || $1 !~ /^task-/) {
parse_package($_);
}
}
close AVAIL or die "apt-cache failed : $@ ($!)\n";
# Read in the extra (new/unstable) tasks packages
if ($force_unstable_tasks) {
if ($tasks_packages =~ /\.gz$/) {
open(AVAIL, "zcat $tasks_packages |") || die "Can't zcat $tasks_packages : $!\n";
} else {
open(AVAIL, "< $tasks_packages") || die "Can't open $tasks_packages for reading: $!\n";
}
while (defined($_=<AVAIL>)) {
next if not m/^Package: (\S+)\s*$/m;
if ($1 =~ /^task-/) {
parse_package($_);
}
}
close AVAIL or die "reading unstable tasks failed : $@ ($!)\n";
}
$/ = $oldrs;
# Get the list of excluded packages