Add a test for a custom digest created via EVP_MD_meth_new()

[openssl.git] / configdata.pm.in

diff --git a/configdata.pm.in b/configdata.pm.in
index 57ad440fa41be046231732e202e66cc7bfef996a..2dfb7d8d7014c31624e8609e532abb0ca60cb370 100644 (file)
--- a/configdata.pm.in
+++ b/configdata.pm.in
@@ -20,7 +20,7 @@
          # Unix form /VOLUME/DIR1/DIR2/FILE, which is what VMS perl supports
          # for 'use lib'.
 
-         # Start with spliting the native path
+         # Start with splitting the native path
          (my $vol, my $dirs, my $file) = File::Spec->splitpath($path);
          my @dirs = File::Spec->splitdir($dirs);
 
@@ -88,7 +88,7 @@ unless (caller) {
     if (scalar @ARGV == 0) {
         # With no arguments, re-create the build file
         # We do that in two steps, where the first step emits perl
-        # snipets.
+        # snippets.
 
         my $buildfile = $target{build_file};
         my $buildfile_template = "$buildfile.in";
@@ -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'