Legal: Update tests/filter/ inputs and outputs

[subdirmk.git] / tests / filter / extract-doctests

diff --git a/tests/filter/extract-doctests b/tests/filter/extract-doctests
index 707da89fbaec7438902cdf8634075e9cdbdcbb8a..130c23705b2828968fceeacd233ec010460221b5 100755 (executable)
--- a/tests/filter/extract-doctests
+++ b/tests/filter/extract-doctests
@@ -1,6 +1,9 @@
 #!/usr/bin/perl -w
-#
-# script for extracting doctests from README
+# subdirmk - script for extracting doctests from README
+#  Copyright 2019 Mark Wooding
+#  Copyright 2019 Ian Jackson
+# SPDX-License-Identifier: LGPL-2.0-or-later
+# There is NO WARRANTY.
 #
 # usage:
 #   expand <README | tests/filter/extract-doctests tests/filter/
@@ -55,7 +58,7 @@ while (<>) {
            s{^or (\S+)$}{}) {
            $e->{OutTop} = $1 eq 'nothing' ? '' : $1;
        } elsif (# parse: expect other wordish things to be comments
-                m{^(?!or\b)\w{2,} }) {
+                m{^(?!or\b)\(?\w{2,} }) {
        } elsif (# adhoc: slightly special case for $(eval $(call
                 m{^\$\{.*}) {
            $e->{Out} .= ' '.$&;