From 277eb6bb444dd0f348079d7d37487f224c9abe39 Mon Sep 17 00:00:00 2001 From: Rob Landley Date: Thu, 27 Jul 2006 14:59:36 +0000 Subject: 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. --- docs/autodocifier.pl | 4 ++-- 1 file 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('', -- cgit v1.2.3