From 8352eab73e64f18090a9eda093bbe28e74a0995b Mon Sep 17 00:00:00 2001 From: Jacob Bachmeyer Date: Thu, 20 Oct 2022 23:29:39 -0500 Subject: [PATCH] Add operation list header to calls to check_files and install_files --- gatekeeper.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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]; -- 2.25.1