aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdocs/autodocifier.pl10
1 files changed, 5 insertions, 5 deletions
diff --git a/docs/autodocifier.pl b/docs/autodocifier.pl
index e5b9767d2..a6e19129c 100755
--- a/docs/autodocifier.pl
+++ b/docs/autodocifier.pl
@@ -44,7 +44,7 @@ sub pod_for_usage {
44 my $usage = shift; 44 my $usage = shift;
45 45
46 my $trivial = $usage->{trivial}; 46 my $trivial = $usage->{trivial};
47 $trivial !~ /^\s/ && $trivial =~s/(?<!\w)(-\w+)/B<$1>/sxg; 47 $trivial =~s/(?<!\w)(-\w+)/B<$1>/sxg;
48 48
49 my @full = 49 my @full =
50 map { $_ !~ /^\s/ && s/(?<!\w)(-\w+)/B<$1>/g; $_ } 50 map { $_ !~ /^\s/ && s/(?<!\w)(-\w+)/B<$1>/g; $_ }
@@ -70,8 +70,9 @@ sub sgml_for_usage {
70 "FIXME"; 70 "FIXME";
71} 71}
72 72
73# the keys are applet names, and the values will contain 73# the keys are applet names, and
74# hashrefs of the form: 74# the values will contain hashrefs of the form:
75#
75# { 76# {
76# trivial => "...", 77# trivial => "...",
77# full => "...", 78# full => "...",
@@ -100,7 +101,6 @@ if (defined $opt{help}) {
100 exit 1; 101 exit 1;
101} 102}
102 103
103#
104# collect documenation into %docs 104# collect documenation into %docs
105foreach (@ARGV) { 105foreach (@ARGV) {
106 open(USAGE, $_) || die("$0: $!"); 106 open(USAGE, $_) || die("$0: $!");
@@ -180,4 +180,4 @@ John BEPPU <beppu@lineo.com>
180 180
181=cut 181=cut
182 182
183# $Id: autodocifier.pl,v 1.2 2001/02/23 02:33:28 beppu Exp $ 183# $Id: autodocifier.pl,v 1.3 2001/02/23 02:54:31 beppu Exp $