diff options
| author | Rob Landley <rob@landley.net> | 2006-07-27 14:59:36 +0000 |
|---|---|---|
| committer | Rob Landley <rob@landley.net> | 2006-07-27 14:59:36 +0000 |
| commit | 277eb6bb444dd0f348079d7d37487f224c9abe39 (patch) | |
| tree | 7548e7ab87d3e6a4a1932125ca138b28a31f8c98 | |
| parent | eac0c069385430901357de0d511cbf5d9e4d12a6 (diff) | |
I touched perl. I feel dirty.
Make autodocifier suck less. It still doesn't handle nested USE( USE() ) case
(the inner USE() winds up in the output), but making it recursive involves
getting perl to accept a "for" loop and it's telling me that "break" is an
unrecognized bareword and I hate perl. This is at least an improvement.
| -rwxr-xr-x | docs/autodocifier.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/docs/autodocifier.pl b/docs/autodocifier.pl index fa8c4c08a..c39260acb 100755 --- a/docs/autodocifier.pl +++ b/docs/autodocifier.pl @@ -21,8 +21,8 @@ sub continuation { # regex && eval away unwanted strings from documentation sub beautify { my $text = shift; - $text =~ s/USAGE_NOT\w+\(.*?"\s*\)//sxg; - $text =~ s/USAGE_\w+\(\s*?(.*?)"\s*\)/$1"/sxg; + $text =~ s/SKIP_\w+\(.*?"\s*\)//sxg; + $text =~ s/USE_\w+\(\s*?(.*?)"\s*\)/$1"/sxg; $text =~ s/"\s*"//sg; my @line = split("\n", $text); $text = join('', |