diff options
| -rwxr-xr-x | docs/autodocifier.pl | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/docs/autodocifier.pl b/docs/autodocifier.pl index a6e19129c..8e1ab0a74 100755 --- a/docs/autodocifier.pl +++ b/docs/autodocifier.pl @@ -46,9 +46,10 @@ sub pod_for_usage { my $trivial = $usage->{trivial}; $trivial =~s/(?<!\w)(-\w+)/B<$1>/sxg; - my @full = + my $full = + join("\n" map { $_ !~ /^\s/ && s/(?<!\w)(-\w+)/B<$1>/g; $_ } - split("\n", $usage->{full}); + split("\n", $usage->{full})); return "-------------------------------\n". @@ -57,7 +58,7 @@ sub pod_for_usage { "\n\n". "$name $trivial". "\n\n". - join("\n", @full). + $full. "\n\n" ; } @@ -146,11 +147,9 @@ The purpose of this script is to automagically generate documentation for busybox using its usage.h as the original source for content. Currently, the same content has to be duplicated in 3 places in slightly different formats -- F<usage.h>, F<docs/busybox.pod>, and -F<docs/busybox.sgml>. Duplicating the same content in these 3 places -is tedious, so Perl has come to the rescue. +F<docs/busybox.sgml>. This is tedious, so Perl has come to the rescue. -This script was based on an original work by -Erik Andersen (andersen@lineo.com). +This script was based on a script by Erik Andersen (andersen@lineo.com). =head1 OPTIONS @@ -180,4 +179,4 @@ John BEPPU <beppu@lineo.com> =cut -# $Id: autodocifier.pl,v 1.3 2001/02/23 02:54:31 beppu Exp $ +# $Id: autodocifier.pl,v 1.4 2001/02/23 03:12:45 beppu Exp $ |