diff options
author | Mike Frysinger <vapier@gentoo.org> | 2006-02-06 01:11:34 +0000 |
---|---|---|
committer | Mike Frysinger <vapier@gentoo.org> | 2006-02-06 01:11:34 +0000 |
commit | ba9c4d1f892d102f0384a52a0be370dd184ea1c2 (patch) | |
tree | 0edcb2a1c3159a6fd589122d0e42666d5c5988a3 | |
parent | f37529d6b692797a136b59c2014ab87fef63ced8 (diff) |
get rid of warnings with applets that have no usage and get rid of pointless --- separator between applets
-rwxr-xr-x | docs/autodocifier.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/docs/autodocifier.pl b/docs/autodocifier.pl index a122b0b06..95c9f410f 100755 --- a/docs/autodocifier.pl +++ b/docs/autodocifier.pl @@ -51,10 +51,14 @@ sub pod_for_usage { # make options bold my $trivial = $usage->{trivial}; - $trivial =~ s/(?<!\w)(-\w+)/B<$1>/sxg; + if (!defined $usage->{trivial}) { + $trivial = ""; + } else { + $trivial =~ s/(?<!\w)(-\w+)/B<$1>/sxg; + } my @f0 = map { $_ !~ /^\s/ && s/(?<!\w)(-\w+)/B<$1>/g; $_ } - split("\n", $usage->{full}); + split("\n", (defined $usage->{full} ? $usage->{full} : "")); # add "\n" prior to certain lines to make indented # lines look right @@ -89,7 +93,6 @@ sub pod_for_usage { "$full\n\n" . "$notes" . "$example" . - "-------------------------------". "\n\n" ; } |