thh/yapfaq
1
0
Fork 0
Code Issues 1 Pull requests Packages Projects Releases Activity

-h: Replace version/usage information with man page.

Browse source 
Feed script to perldoc when called with -h.

Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2010-04-08 06:21:05 +02:00
parent d69ba0bb34
commit ae3b1b7906
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
yapfaq.pl
View file

@ -61,7 +61,7 @@ my ($TDY, $TDM, $TDD) = Today(); #TD: Today's date
my %Options; my %Options;
getopts('hvpdt:f:', \%Options); getopts('hvpdt:f:', \%Options);
if ($Options{'h'}) { if ($Options{'h'}) {
print "$0 v $Version\nUsage: $0 [-hvpd] [-t <newsgroups>] [-f <faq>]\n"; exec ('perldoc', $0);
exit(0); exit(0);
}; };
my ($Faq) = $Options{'f'} if ($Options{'f'}); my ($Faq) = $Options{'f'} if ($Options{'f'});
@ -697,7 +697,7 @@ was posted and the second being the message ID of that incarnation.
=item B<-h> (help) =item B<-h> (help)
Print out version and usage information on B<yapfaq> and exit. Print this man page and exit.
=item B<-v> (verbose) =item B<-v> (verbose)