diff options
-rwxr-xr-x | docs/autodocifier.pl | 8 |
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 |
22 | sub beautify { | 22 | sub 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('', |