aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdocs/autodocifier.pl8
1 files changed, 6 insertions, 2 deletions
diff --git a/docs/autodocifier.pl b/docs/autodocifier.pl
index c39260acb..4acb6bdc8 100755
--- a/docs/autodocifier.pl
+++ b/docs/autodocifier.pl
@@ -21,8 +21,12 @@ sub continuation {
21# regex && eval away unwanted strings from documentation 21# regex && eval away unwanted strings from documentation
22sub beautify { 22sub beautify {
23 my $text = shift; 23 my $text = shift;
24 $text =~ s/SKIP_\w+\(.*?"\s*\)//sxg; 24 for (;;) {
25 $text =~ s/USE_\w+\(\s*?(.*?)"\s*\)/$1"/sxg; 25 my $text2 = $text;
26 $text =~ s/SKIP_\w+\(.*?"\s*\)//sxg;
27 $text =~ s/USE_\w+\(\s*?(.*?)"\s*\)/$1"/sxg;
28 last if ( $text2 eq $text );
29 }
26 $text =~ s/"\s*"//sg; 30 $text =~ s/"\s*"//sg;
27 my @line = split("\n", $text); 31 my @line = split("\n", $text);
28 $text = join('', 32 $text = join('',