From: Jacob Bachmeyer <jcb@gnu.org>
Date: Fri, 21 Oct 2022 04:29:39 +0000 (-0500)
Subject: Add operation list header to calls to check_files and install_files
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=8352eab73e64f18090a9eda093bbe28e74a0995b;p=gatekeeper.git

Add operation list header to calls to check_files and install_files
---

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 18e986c..9bd470d 100755
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -1781,6 +1781,7 @@ sub check_vulnerabilities {
 # SIG_FILE and UPLOAD_FILE are good.
 #
 sub check_files {
+  my $header = shift;
   my $files = shift;
   my %info = @_;
 
@@ -1854,6 +1855,7 @@ sub archive {
 # subdir). When the destination file exists, archive it automatically first.
 #
 sub install_files {
+  my $header = shift;
   my $files = shift;
   my %info = @_;
 
@@ -1938,8 +1940,8 @@ sub execute_commands {
   my $destdir = "$destfinal/$header->{directory}";
   foreach my $step (@{$oplist}[1..$#$oplist]) {	# skip the header
     if ($step->[0] eq 'install') {
-      check_files($files,%originfo);
-      install_files($files,%originfo);
+      check_files($header, $files, %originfo);
+      install_files($header, $files, %originfo);
     } elsif ($step->[0] eq 'symlink') {
       my $target = $step->[1];
       my $linkname = $step->[2];