josch/multistrap
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Improve source download method to get packages individually - avoids breakage if the repository is incomplete.

Browse source 
git-svn-id: http://emdebian.org/svn/current@7963 563faec7-e20c-0410-992a-a66f704d0ccd
This commit is contained in:
codehelp 2011-03-31 15:41:39 +00:00
parent 2f9e921109
commit 9da8725e4a
2 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
debian/changelog vendored
View file

@ -12,8 +12,10 @@ multistrap (2.1.13) unstable; urgency=low
* Use perl realpath support and drop dependency.
* [INTL:da] Add Danish translation of multistrap documentation
(Closes: #619069)
* Improve source download method to get packages individually - avoids
breakage if the repository is incomplete.
-- Neil Williams <codehelp@debian.org> Sat, 05 Mar 2011 15:04:33 +0000
-- Neil Williams <codehelp@debian.org> Thu, 31 Mar 2011 16:37:48 +0100
multistrap (2.1.12) unstable; urgency=low

18
multistrap
View file

@ -19,7 +19,7 @@ use strict;
use warnings;
use IO::File;
use Config::Auto;
use Cwd qw (realpath);
use Cwd qw (realpath getcwd);
use File::Basename;
use Parse::Debian::Packages;
use POSIX qw(locale_h);
@ -355,7 +355,6 @@ foreach my $a (@s) {
$uniq{$a}++;
}
$str = join (' ', sort keys %uniq);
@dsclist = sort keys %uniq;
print "apt-get -y $config_str install $str\n";
$retval = 0;
$retval = system ("apt-get -y $config_str install $str");
@ -524,9 +523,12 @@ sub force_unpack {
printf (_g("I: Extracting %s...\n"), $deb);
my $ver=`LC_ALL=C dpkg -f ./${cachedir}archives/$deb Version`;
my $pkg=`LC_ALL=C dpkg -f ./${cachedir}archives/$deb Package`;
my $src=`LC_ALL=C dpkg -f ./${cachedir}archives/$deb Source`;
chomp ($ver);
chomp ($pkg);
push @dsclist, $pkg;
chomp ($src);
$src =~ s/ \(.*\)//;
push @dsclist, $src;
mkdir ("./tmp");
my $tmpdir = `mktemp -p ./tmp -d -t multistrap.XXXXXX`;
chomp ($tmpdir);
@ -732,9 +734,13 @@ sub tidy_apt {
foreach my $a (@dsclist) {
$uniqdsc{$a}++;
}
my $str = join (" ", sort keys %uniqdsc);
print "(cd $sourcedir; apt-get -d $config_str source $str)";
system ("(cd $sourcedir; apt-get -d $config_str source $str)");
my $olddir = getcwd();
chdir ($sourcedir);
print "apt-get -d config_str source " . join (" ", sort keys %uniqdsc) . "\n";
foreach my $srcpkg (sort keys %uniqdsc) {
system ("apt-get -d $config_str source $srcpkg");
}
chdir ($olddir);
}
unlink ("${dir}etc/apt/sources.list")
if (-f "${dir}etc/apt/sources.list");