From 53d28eb7bfa2ad966070c8b4a640a9b36a834f64 Mon Sep 17 00:00:00 2001 From: Jacob Bachmeyer Date: Sat, 5 Nov 2022 17:46:23 -0500 Subject: [PATCH] Use File::Spec when reading directive file at top-level --- gatekeeper.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/gatekeeper.pl b/gatekeeper.pl index 4f5a44e..ab5010e 100755 --- a/gatekeeper.pl +++ b/gatekeeper.pl @@ -2628,8 +2628,12 @@ foreach my $packet (@packets) { # each list element is an array reference } eval { # trap exceptions encountered while processing a packet + our $Scratch_dir; + local $Phase = 'PV'; - $directive_text = slurp_clearsigned_message($packet->[0]); + + $directive_text = slurp_clearsigned_message + (File::Spec->catfile($Scratch_dir, $packet->[0])); # This would imply that the directive file did not contain a signed # message. There is nothing further to do. -- 2.25.1