X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=tests%2Ffilter%2Fextract-doctests;fp=tests%2Ffilter%2Fextract-doctest;h=707da89fbaec7438902cdf8634075e9cdbdcbb8a;hb=edfd1e8c3b5d8dd10e9b9ebb530d86e670d441d2;hp=d779e00a5da4c152f9e55146a7c16b05f483c87c;hpb=05c6af41adb9be0c0f7a7595bba06b4341c3feae;p=subdirmk.git diff --git a/tests/filter/extract-doctest b/tests/filter/extract-doctests similarity index 92% rename from tests/filter/extract-doctest rename to tests/filter/extract-doctests index d779e00..707da89 100755 --- a/tests/filter/extract-doctest +++ b/tests/filter/extract-doctests @@ -3,10 +3,10 @@ # script for extracting doctests from README # # usage: -# expand ', "$outdir/${dir_prefix}doctest.sd.mk" or die $!; - open O, '>', "$outdir/${dir_prefix}doctest.mk.part" or die $!; - oh "# doctest starts $dir_prefix\n"; + open I, '>', "$outdir/${dir_prefix}doctests.sd.mk" or die $!; + open O, '>', "$outdir/${dir_prefix}doctests.mk.part" or die $!; + oh "# doctests start $dir_prefix\n"; write_permode($dir_prefix, '','','', 'normal', sub { !$_[0]{DD} && !$_[0]{CQ} } ); @@ -165,7 +165,7 @@ sub writeout ($) { "", 'changequote', sub { $_[0]{CQ} } ); - oh "# doctest ends\n"; + oh "# doctests end\n"; close I or die $!; }