From: Jacob Bachmeyer <jcb@gnu.org>
Date: Sat, 5 Nov 2022 22:45:35 +0000 (-0500)
Subject: Use File::Spec in success_upload and success_directive
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=1ac640333896d0acc1529719e6c1409bed3601a4;p=gatekeeper.git

Use File::Spec in success_upload and success_directive
---

diff --git a/gatekeeper.pl b/gatekeeper.pl
index c11ab59..4f5a44e 100755
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -2501,16 +2501,22 @@ sub success_upload {
   my $upload_file = shift;
   my $directive_file = shift;
 
+  our $Scratch_dir;
+
   mail ("upload of $upload_file and $sig_file complete",1);
 
-  unlink ($directive_file)
+  unlink File::Spec->catfile($Scratch_dir, $directive_file)
     or warn "unlink($directive_file) failed: $!";
 }
 
 sub success_directive {
   my $directive_file = shift;
+
+  our $Scratch_dir;
+
   mail ("processing of $directive_file complete",1);
-  unlink ($directive_file)
+
+  unlink File::Spec->catfile($Scratch_dir, $directive_file)
     or warn "unlink($directive_file) failed: $!";
 }