X-Git-Url: https://code.th-h.de/?p=usenet%2Fyapfaq.git;a=blobdiff_plain;f=yapfaq.pl;h=084c77edc2acb5073c9d44cd2ab471951b3adc39;hp=888a4f5a7f17cee2545d3a9b0f79627fd88c3ba8;hb=a052296f3b55e5f07e7d70b53c988721b129b0bc;hpb=ae3b1b7906bb835b80b86143c0285965afa728d8;ds=sidebyside

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 <marc\@marcbrockschmidt.de>\nCopyright (c) 2010 Thomas Hochstein <thh\@inter.net>\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<yapfaq> and exit.
+
 =item B<-h> (help)
 
 Print this man page and exit.