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

Print information about expecting data from stdin

Browse source
This commit is contained in:
Johannes 'josch' Schauer 2018-09-18 13:10:09 +02:00
parent 9ed4c65e35
commit 77a95f0002
Signed by untrusted user: josch
GPG key ID: F2CBA5C78FBD83E1
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
mmdebstrap
View file

@ -486,6 +486,8 @@ sub setup {
for my $arg (@{$options->{mirrors}}) { for my $arg (@{$options->{mirrors}}) {
if ($arg eq '-') { if ($arg eq '-') {
# read from stdin # read from stdin
print STDERR "I: Reading sources.list from standard input...\n";
copy *STDIN, $fh or die "cannot copy stdin: $!";
} elsif ($arg =~ /:\/\//) { } elsif ($arg =~ /:\/\//) {
print $fh "deb$archopt $arg $options->{suite} $options->{components}\n" print $fh "deb$archopt $arg $options->{suite} $options->{components}\n"
} elsif ($arg =~ /^deb(-src)? /) { } elsif ($arg =~ /^deb(-src)? /) {
@ -935,6 +937,7 @@ sub main() {
} }
$options->{mirrors} = [@ARGV]; $options->{mirrors} = [@ARGV];
} else { } else {
print STDERR "I: No SUITE specified, expecting sources.list on standard input\n";
$options->{suite} = 'UNDEFINED'; $options->{suite} = 'UNDEFINED';
$options->{target} = '-'; $options->{target} = '-';
$options->{mirrors} = ['-']; $options->{mirrors} = ['-'];