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

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 4f5a44eabcdb5ce58133c622c0f90c69782f1aa5..ab5010e5012e5e38e9e32c6791555dcc01a71b89 100755 (executable)
--- 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.