zulcss/mmdebstrap
1
0
Fork 0
forked from josch/mmdebstrap
Code Pull requests Activity

prevent a 'deb...' mirror argument from being handled by the '://' case

Browse source
This commit is contained in:
Johannes 'josch' Schauer 2018-10-02 04:09:18 +02:00
parent 173ea1162b
commit bb2aa6e9fd
Signed by untrusted user: josch
GPG key ID: F2CBA5C78FBD83E1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
mmdebstrap
View file

@ -682,10 +682,10 @@ sub setup {
# read from stdin # read from stdin
print STDERR "I: Reading sources.list from standard input...\n"; print STDERR "I: Reading sources.list from standard input...\n";
copy *STDIN, $fh or die "cannot copy stdin: $!"; copy *STDIN, $fh or die "cannot copy stdin: $!";
} elsif ($arg =~ /:\/\//) {
print $fh "deb$archopt $arg $options->{suite} $options->{components}\n";
} elsif ($arg =~ /^deb(-src)? /) { } elsif ($arg =~ /^deb(-src)? /) {
print $fh "$arg\n"; print $fh "$arg\n";
} elsif ($arg =~ /:\/\//) {
print $fh "deb$archopt $arg $options->{suite} $options->{components}\n";
} elsif (-f $arg) { } elsif (-f $arg) {
copy($arg, $fh) or die "cannot copy $arg: $!"; copy($arg, $fh) or die "cannot copy $arg: $!";
} else { } else {