From d688123d38c998c431e4e2a75b6bed97f692166b Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb@gnu.org>
Date: Fri, 7 Oct 2022 22:50:36 -0500
Subject: [PATCH] Eliminate version_information sub that was called exactly
 once

---
 gatekeeper.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 69e0081..6de257f 100755
--- 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)
-- 
2.25.1