doctests: Allow parenthetical comments as an expansion RHS

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/tests/filter/extract-doctests b/tests/filter/extract-doctests
index 707da89fbaec7438902cdf8634075e9cdbdcbb8a..4357beeef07c7f08603398032331c2abe3a4a2c0 100755 (executable)
--- a/tests/filter/extract-doctests
+++ b/tests/filter/extract-doctests
@@ -55,7 +55,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} .= ' '.$&;