Eliminate version_information sub that was called exactly once

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 69e00812e0d92d5c3e5b80e1873b2dfa5e2cbbc5..6de257f599a4abb7bbde0393a2f4527f04757e30 100755 (executable)
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -262,7 +262,7 @@ our $style;
 our $help;
 our $version;
 
-sub version_information {
+if ($version) {
   print "\nThis is $NAME protocol version $VERSION ($DATE)\n";
   print $COPYRIGHT_NOTICE;
   print "License: $LICENSE\n";
@@ -275,7 +275,6 @@ sub version_information {
   exit 0;
 }
 
-version_information() if ($version);
 pod2usage(-verbose => 1, -exitval => 0) if ($help);
 pod2usage(-message => 'ERROR:  Required parameter not given or invalid.',
          -verbose => 0, -exitval => 2)