X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?p=subdirmk.git;a=blobdiff_plain;f=tests%2Ffilter%2Fextract-doctest;h=35870cea50ed6987a1cb388eb372be3cb38711df;hp=40cf4f576822f17cb1b750b691f44c9cc4b20e8a;hb=f52334abf79af4ead3ad1a101a104db61ab07162;hpb=b870fbb3b70af8a37585f4ecedc7e0e574f772f1

diff --git a/tests/filter/extract-doctest b/tests/filter/extract-doctest
index 40cf4f5..35870ce 100755
--- a/tests/filter/extract-doctest
+++ b/tests/filter/extract-doctest
@@ -106,20 +106,20 @@ sub write_permode ($$$$$;$$) {
     oh "${senl}# ----- $what starts -----\n";
     foreach my $e (@exp) {
 	next unless $filter->($e);
-	my $rubric = $e->{In};
-	$rubric =~ s/\&/AMP /g;
-	$rubric =~ s/\$/DOLLAR /g;
-	$rubric =~ s/NEWQUOTE/NEW_QUOTE /g;
-	my ($f,$prubric) = $rubric =~ m/^(.*)\n/
+	my $desc = $e->{In};
+	$desc =~ s/\&/AMP /g;
+	$desc =~ s/\$/DOLLAR /g;
+	$desc =~ s/NEWQUOTE/NEW_QUOTE /g;
+	my ($f,$pdesc) = $desc =~ m/^(.*)\n/
 	        ? ("\n# %s:\n%s\n\n", $1)
-		: ("%-30s: %s .\n", $rubric);
+		: ("%-30s: %s .\n", $desc);
 	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, $prubric, $e->{In};
-	oo sprintf $f, $prubric, $o;
+	oi sprintf $f, $pdesc, $e->{In};
+	oo sprintf $f, $pdesc, $o;
     }
     oi $end;
     oh "${senl}# ----- $what ends -----\n";