my $usage = shift;
my $trivial = $usage->{trivial};
- $trivial !~ /^\s/ && $trivial =~s/(?<!\w)(-\w+)/B<$1>/sxg;
+ $trivial =~s/(?<!\w)(-\w+)/B<$1>/sxg;
my @full =
map { $_ !~ /^\s/ && s/(?<!\w)(-\w+)/B<$1>/g; $_ }
"FIXME";
}
-# the keys are applet names, and the values will contain
-# hashrefs of the form:
+# the keys are applet names, and
+# the values will contain hashrefs of the form:
+#
# {
# trivial => "...",
# full => "...",
exit 1;
}
-#
# collect documenation into %docs
foreach (@ARGV) {
open(USAGE, $_) || die("$0: $!");
=cut
-# $Id: autodocifier.pl,v 1.2 2001/02/23 02:33:28 beppu Exp $
+# $Id: autodocifier.pl,v 1.3 2001/02/23 02:54:31 beppu Exp $