test for CLI when using pipe

This commit is contained in:
Dietmar Maurer 2011-10-20 10:51:28 +02:00
parent 4925fe8ec1
commit bc4dcb99a1

View File

@ -144,6 +144,9 @@ __PACKAGE__->register_method({
} else { } else {
my $keystr = join(' ', keys %$param); my $keystr = join(' ', keys %$param);
raise_param_exc({ archive => "option conflicts with other options ($keystr)"}) if $keystr; raise_param_exc({ archive => "option conflicts with other options ($keystr)"}) if $keystr;
die "pipe requires cli environment\n"
if $archive eq '-' && $rpcenv->{type} ne 'cli';
} }
my $restorefn = sub { my $restorefn = sub {