fix support for setup.sh and config.sh - used to set the default dpkg-cross arch
git-svn-id: http://emdebian.org/svn/current@7176 563faec7-e20c-0410-992a-a66f704d0ccd
This commit is contained in:
parent
5001a57afc
commit
fd3e5dc9bf
1 changed files with 5 additions and 9 deletions
14
multistrap
14
multistrap
|
@ -344,12 +344,12 @@ print "apt-get $forceyes -y $config_str install $str\n";
|
||||||
$retval = system ("apt-get -y $config_str install $str");
|
$retval = system ("apt-get -y $config_str install $str");
|
||||||
die (sprintf (_g("apt download failed. Exit value: %d\n"),($retval/256)))
|
die (sprintf (_g("apt download failed. Exit value: %d\n"),($retval/256)))
|
||||||
if ($retval != 0);
|
if ($retval != 0);
|
||||||
system ("$setupsh $dir $arch") if ((defined $setupsh) and (-f $setupsh));
|
|
||||||
&force_unpack if ($unpack eq "true");
|
&force_unpack if ($unpack eq "true");
|
||||||
system ("cp $configsh $dir/") if ((defined $configsh) and (-f $configsh));
|
|
||||||
system ("touch ${dir}${libdir}lists/lock");
|
system ("touch ${dir}${libdir}lists/lock");
|
||||||
&native if (not defined ($foreign));
|
&native if (not defined ($foreign));
|
||||||
|
system ("$setupsh $dir $arch") if ((defined $setupsh) and (-f $setupsh));
|
||||||
&add_extra_packages;
|
&add_extra_packages;
|
||||||
|
system ("cp $configsh $dir/") if ((defined $configsh) and (-f $configsh));
|
||||||
(not defined $tidy) ? system ("apt-get $config_str update") : &tidy_apt;
|
(not defined $tidy) ? system ("apt-get $config_str update") : &tidy_apt;
|
||||||
if (-l "${dir}lib64" ) {
|
if (-l "${dir}lib64" ) {
|
||||||
my $r = readlink "${dir}lib64";
|
my $r = readlink "${dir}lib64";
|
||||||
|
@ -358,10 +358,6 @@ if (-l "${dir}lib64" ) {
|
||||||
print _g("ERR: ./lib64 -> /lib symbolic link reset to ./lib after unpacking.\n");
|
print _g("ERR: ./lib64 -> /lib symbolic link reset to ./lib after unpacking.\n");
|
||||||
printf (_g("ERR: Some files may have been unpacked outside %s!\n"), $dir);
|
printf (_g("ERR: Some files may have been unpacked outside %s!\n"), $dir);
|
||||||
}
|
}
|
||||||
else
|
|
||||||
{
|
|
||||||
printf (_g("\nMultistrap system installed successfully in %s.\n"), $dir);
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
# cleanly separate the debootstrap sources from the final apt sources.
|
# cleanly separate the debootstrap sources from the final apt sources.
|
||||||
unlink ("${dir}etc/apt/sources.list.d/multistrap.sources.list")
|
unlink ("${dir}etc/apt/sources.list.d/multistrap.sources.list")
|
||||||
|
@ -410,7 +406,7 @@ END
|
||||||
}
|
}
|
||||||
# altered the sources, so get apt to update.
|
# altered the sources, so get apt to update.
|
||||||
(not defined $tidy) ? system ("apt-get $config_str update") : &tidy_apt;
|
(not defined $tidy) ? system ("apt-get $config_str update") : &tidy_apt;
|
||||||
|
printf (_g("\nMultistrap system installed successfully in %s.\n"), $dir);
|
||||||
if (defined $tgzname)
|
if (defined $tgzname)
|
||||||
{
|
{
|
||||||
printf (_g("\nCompressing multistrap system in '%s' to a tarball called: '%s'.\n"), $dir, $tgzname);
|
printf (_g("\nCompressing multistrap system in '%s' to a tarball called: '%s'.\n"), $dir, $tgzname);
|
||||||
|
@ -882,11 +878,11 @@ sub cascade
|
||||||
$tgzname = lc($keys{$section}{'tarballname'})
|
$tgzname = lc($keys{$section}{'tarballname'})
|
||||||
if (defined $keys{$section}{'tarballname'}
|
if (defined $keys{$section}{'tarballname'}
|
||||||
and (not defined $tgzname));
|
and (not defined $tgzname));
|
||||||
undef $configsh if ((defined $configsh) and (-x $configsh));
|
undef $configsh if ((defined $configsh) and (not -x $configsh));
|
||||||
$setupsh = lc($keys{$section}{'setupscript'})
|
$setupsh = lc($keys{$section}{'setupscript'})
|
||||||
if (defined $keys{$section}{'setupscript'}
|
if (defined $keys{$section}{'setupscript'}
|
||||||
and (not defined $setupsh));
|
and (not defined $setupsh));
|
||||||
undef $setupsh if ((defined $setupsh) and (-x $setupsh));
|
undef $setupsh if ((defined $setupsh) and (not -x $setupsh));
|
||||||
$omitrequired = lc($keys{$section}{'omitrequired'})
|
$omitrequired = lc($keys{$section}{'omitrequired'})
|
||||||
if (defined $keys{$section}{'omitrequired'}
|
if (defined $keys{$section}{'omitrequired'}
|
||||||
and (not defined $omitrequired));
|
and (not defined $omitrequired));
|
||||||
|
|
Loading…
Reference in a new issue