summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
d69ba0b)
Feed script to perldoc when called with -h.
Signed-off-by: Thomas Hochstein <thh@inter.net>
my %Options;
getopts('hvpdt:f:', \%Options);
if ($Options{'h'}) {
my %Options;
getopts('hvpdt:f:', \%Options);
if ($Options{'h'}) {
- print "$0 v $Version\nUsage: $0 [-hvpd] [-t <newsgroups>] [-f <faq>]\n";
exit(0);
};
my ($Faq) = $Options{'f'} if ($Options{'f'});
exit(0);
};
my ($Faq) = $Options{'f'} if ($Options{'f'});
-Print out version and usage information on B<yapfaq> and exit.
+Print this man page and exit.