From b249fbb1dc93e50fc41dfe8823ac09b76c9ca04a Mon Sep 17 00:00:00 2001 From: John Beppu Date: Fri, 23 Feb 2001 03:12:45 +0000 Subject: [PATCH] I can't leave it alone. --- docs/autodocifier.pl | 15 +++++++-------- 1 file 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/(?/sxg; - my @full = + my $full = + join("\n" map { $_ !~ /^\s/ && s/(?/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, F, and -F. Duplicating the same content in these 3 places -is tedious, so Perl has come to the rescue. +F. 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 =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 $ -- 2.25.1