configdata.pm: Allow extra arguments when --query is given.

That allows operations like this:

    ./configdata.pm --query 'get_sources(@ARGV)' file1 file2 file3

Reviewed-by: Tomas Mraz <tomas@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/15514)
This commit is contained in:
Richard Levitte 2021-05-28 07:51:05 +02:00
parent 5cbd2ea3f9
commit e653b04bd2
1 changed files with 4 additions and 1 deletions

View File

@ -178,7 +178,10 @@ _____
'man' => \$man)
or die "Errors in command line arguments\n";
if (scalar @ARGV > 0) {
# We allow extra arguments with --query. That allows constructs like
# this:
# ./configdata.pm --query 'get_sources(@ARGV)' file1 file2 file3
if (!$query && scalar @ARGV > 0) {
print STDERR <<"_____";
Unrecognised arguments.
For more information, do '$0 --help'