chiark
/
gitweb
/
~ian
/
subdirmk.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
doctests: Improve entry description filter
[subdirmk.git]
/
tests
/
filter
/
extract-doctest
diff --git
a/tests/filter/extract-doctest
b/tests/filter/extract-doctest
index b63f309e87f5875465399c15d2fd560298299a69..40cf4f576822f17cb1b750b691f44c9cc4b20e8a 100755
(executable)
--- a/
tests/filter/extract-doctest
+++ b/
tests/filter/extract-doctest
@@
-110,16
+110,16
@@
sub write_permode ($$$$$;$$) {
$rubric =~ s/\&/AMP /g;
$rubric =~ s/\$/DOLLAR /g;
$rubric =~ s/NEWQUOTE/NEW_QUOTE /g;
$rubric =~ s/\&/AMP /g;
$rubric =~ s/\$/DOLLAR /g;
$rubric =~ s/NEWQUOTE/NEW_QUOTE /g;
- my
$f = $e->{In} =~ m/
\n/
- ?
"\n# %s:\n%s\n\n"
- :
"%-30s: %s.\n"
;
+ my
($f,$prubric) = $rubric =~ m/^(.*)
\n/
+ ?
("\n# %s:\n%s\n\n", $1)
+ :
("%-30s: %s .\n", $rubric)
;
my $o;
$o = $e->{OutTop} if $dir_prefix eq '';
$o //= $e->{Out};
$o =~ s{/sub/dir}{} if $dir_prefix eq '' && !defined $e->{OutTop};
$o = $omap->($o, $e);
my $o;
$o = $e->{OutTop} if $dir_prefix eq '';
$o //= $e->{Out};
$o =~ s{/sub/dir}{} if $dir_prefix eq '' && !defined $e->{OutTop};
$o = $omap->($o, $e);
- oi sprintf $f, $rubric, $e->{In};
- oo sprintf $f, $rubric, $o;
+ oi sprintf $f, $
p
rubric, $e->{In};
+ oo sprintf $f, $
p
rubric, $o;
}
oi $end;
oh "${senl}# ----- $what ends -----\n";
}
oi $end;
oh "${senl}# ----- $what ends -----\n";