-h: Replace version/usage information with man page.
authorThomas Hochstein <thh@inter.net>
Thu, 8 Apr 2010 04:21:05 +0000 (06:21 +0200)
committerThomas Hochstein <thh@inter.net>
Fri, 9 Apr 2010 23:05:25 +0000 (01:05 +0200)
Feed script to perldoc when called with -h.

Signed-off-by: Thomas Hochstein <thh@inter.net>
yapfaq.pl

index bce9684..888a4f5 100644 (file)
--- a/yapfaq.pl
+++ b/yapfaq.pl
@@ -61,7 +61,7 @@ my ($TDY, $TDM, $TDD) = Today(); #TD: Today's date
 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";
+  exec ('perldoc', $0);
   exit(0);
 };
 my ($Faq) = $Options{'f'} if ($Options{'f'});
   exit(0);
 };
 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)
 
This page took 0.010752 seconds and 4 git commands to generate.