From 3ee72b44ac081c7d80196a0a652674a7deed610b Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb@gnu.org>
Date: Fri, 21 Oct 2022 23:28:38 -0500
Subject: [PATCH] Revise execute_commands to use new model

---
 gatekeeper.pl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 67f98e8..a4175e7 100755
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -1941,9 +1941,14 @@ sub install_files {
     or fatal("rename($stage_upload, $final_upload) failed: $!",0);
 }
 
+=item execute_commands ( $oplist )
+
+Execute the commands in OPLIST.
+
+=cut
+
 sub execute_commands {
   my $oplist = shift;
-  my $files = shift;
 
   ftp_abort("invalid internal operation list")
     unless $oplist->[0][0] eq 'header';
@@ -2098,9 +2103,7 @@ foreach my $packet (@packets) {	# each list element is an array reference
 
     if ($oplist) {
       # do the work
-      execute_commands($oplist,
-		       {directive => $directive_file, upload => $upload_file,
-			sig => $sig_file, directive_only => $directive_only});
+      execute_commands($oplist);
 
       # report success
       if (!$directive_only) {
-- 
2.25.1