josch/mmdebstrap
2
3
Fork 6
Code Issues 8 Pull requests 1 Projects Releases Wiki Activity

do not make the default mirror for the native arch only. The sane expectation is, that the default mirror is for any architecture.

Browse source
This commit is contained in:
Johannes 'josch' Schauer 2018-11-04 20:38:55 +01:00
parent cc7dddb1b3
commit 1890e22b14
Signed by: josch
GPG key ID: F2CBA5C78FBD83E1
1 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
mmdebstrap
View file

@ -1531,10 +1531,6 @@ sub main() {
# come from standard input
$sourceslist .= $stdindata;
} else {
my $archopt = '';
if (scalar @{$options->{foreignarchs}} > 0) {
$archopt = " [arch=$options->{nativearch}]";
}
if (scalar @ARGV > 0) {
for my $arg (@ARGV) {
if ($arg eq '-') {
@ -1542,7 +1538,7 @@ sub main() {
} elsif ($arg =~ /^deb(-src)? /) {
$sourceslist .= "$arg\n";
} elsif ($arg =~ /:\/\//) {
$sourceslist .= "deb$archopt $arg $suite $options->{components}\n";
$sourceslist .= "deb $arg $suite $options->{components}\n";
} elsif (-f $arg) {
open my $fh, '<', $arg or die "cannot open $arg: $!";
while (my $line = <$fh>) {
@ -1563,10 +1559,10 @@ sub main() {
} elsif ($stdindata ne '') {
$sourceslist .= $stdindata;
} else {
$sourceslist .= "deb$archopt http://deb.debian.org/debian $suite $options->{components}\n";
$sourceslist .= "deb http://deb.debian.org/debian $suite $options->{components}\n";
if (any { $_ eq $suite } ('stable', 'oldstable', 'stretch') ) {
$sourceslist .= "deb$archopt http://deb.debian.org/debian $suite-updates $options->{components}\n";
$sourceslist .= "deb$archopt http://security.debian.org/debian-security $suite/updates $options->{components}\n";
$sourceslist .= "deb http://deb.debian.org/debian $suite-updates $options->{components}\n";
$sourceslist .= "deb http://security.debian.org/debian-security $suite/updates $options->{components}\n";
}
}
}