Add operation list header to calls to check_files and install_files

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 18e986c77c20ee7861958d785de7a69c6cbfab0f..9bd470dc917b899ed7d91488646706e330b69fb2 100755 (executable)
--- 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];