forked from josch/mmdebstrap
Print information about expecting data from stdin
This commit is contained in:
parent
9ed4c65e35
commit
77a95f0002
1 changed files with 3 additions and 0 deletions
|
@ -486,6 +486,8 @@ sub setup {
|
|||
for my $arg (@{$options->{mirrors}}) {
|
||||
if ($arg eq '-') {
|
||||
# read from stdin
|
||||
print STDERR "I: Reading sources.list from standard input...\n";
|
||||
copy *STDIN, $fh or die "cannot copy stdin: $!";
|
||||
} elsif ($arg =~ /:\/\//) {
|
||||
print $fh "deb$archopt $arg $options->{suite} $options->{components}\n"
|
||||
} elsif ($arg =~ /^deb(-src)? /) {
|
||||
|
@ -935,6 +937,7 @@ sub main() {
|
|||
}
|
||||
$options->{mirrors} = [@ARGV];
|
||||
} else {
|
||||
print STDERR "I: No SUITE specified, expecting sources.list on standard input\n";
|
||||
$options->{suite} = 'UNDEFINED';
|
||||
$options->{target} = '-';
|
||||
$options->{mirrors} = ['-'];
|
||||
|
|
Loading…
Reference in a new issue