From a052296f3b55e5f07e7d70b53c988721b129b0bc Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Thu, 8 Apr 2010 07:36:11 +0200 Subject: [PATCH] Add option '-V': print version and copyright information. Signed-off-by: Thomas Hochstein --- yapfaq.pl | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/yapfaq.pl b/yapfaq.pl index 888a4f5..084c77e 100644 --- a/yapfaq.pl +++ b/yapfaq.pl @@ -59,7 +59,12 @@ use Getopt::Std; my ($TDY, $TDM, $TDD) = Today(); #TD: Today's date my %Options; -getopts('hvpdt:f:', \%Options); +getopts('Vhvpdt:f:', \%Options); +if ($Options{'V'}) { + print "$0 v $Version\nCopyright (c) 2003 Marc Brockschmidt \nCopyright (c) 2010 Thomas Hochstein \n"; + print "This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.\n"; + exit(0); +} if ($Options{'h'}) { exec ('perldoc', $0); exit(0); @@ -695,6 +700,10 @@ was posted and the second being the message ID of that incarnation. =over 3 +=item B<-V> (version) + +Print out version and copyright information on B and exit. + =item B<-h> (help) Print this man page and exit.