|
|
@ -478,6 +478,7 @@ sub force_unpack {
|
|
|
|
my $pkg=`LC_ALL=C dpkg -f ./${cachedir}archives/$deb Package`;
|
|
|
|
my $pkg=`LC_ALL=C dpkg -f ./${cachedir}archives/$deb Package`;
|
|
|
|
chomp ($ver);
|
|
|
|
chomp ($ver);
|
|
|
|
chomp ($pkg);
|
|
|
|
chomp ($pkg);
|
|
|
|
|
|
|
|
push @dsclist, $pkg;
|
|
|
|
mkdir ("./tmp");
|
|
|
|
mkdir ("./tmp");
|
|
|
|
my $tmpdir = `mktemp -p ./tmp -d -t multistrap.XXXXXX`;
|
|
|
|
my $tmpdir = `mktemp -p ./tmp -d -t multistrap.XXXXXX`;
|
|
|
|
chomp ($tmpdir);
|
|
|
|
chomp ($tmpdir);
|
|
|
@ -587,7 +588,11 @@ sub check_bin_sh {
|
|
|
|
sub tidy_apt {
|
|
|
|
sub tidy_apt {
|
|
|
|
print _g("I: Tidying up apt cache and list data.\n");
|
|
|
|
print _g("I: Tidying up apt cache and list data.\n");
|
|
|
|
if (defined $sourcedir) {
|
|
|
|
if (defined $sourcedir) {
|
|
|
|
my $str = join (" ", @dsclist);
|
|
|
|
my %uniqdsc=();
|
|
|
|
|
|
|
|
foreach my $a (@dsclist) {
|
|
|
|
|
|
|
|
$uniqdsc{$a}++;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
my $str = join (" ", sort keys %uniqdsc);
|
|
|
|
print "(cd $sourcedir; apt-get -d $config_str source $str)";
|
|
|
|
print "(cd $sourcedir; apt-get -d $config_str source $str)";
|
|
|
|
system ("(cd $sourcedir; apt-get -d $config_str source $str)");
|
|
|
|
system ("(cd $sourcedir; apt-get -d $config_str source $str)");
|
|
|
|
}
|
|
|
|
}
|
|
|
|