From: Jacob Bachmeyer <jcb@gnu.org>
Date: Sat, 5 Nov 2022 22:46:23 +0000 (-0500)
Subject: Use File::Spec when reading directive file at top-level
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=53d28eb7bfa2ad966070c8b4a640a9b36a834f64;p=gatekeeper.git

Use File::Spec when reading directive file at top-level
---

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.