Use File::Spec in success_upload and success_directive

diff --git a/gatekeeper.pl b/gatekeeper.pl
index c11ab5904d13fe06ca340b94391ade267e2907b3..4f5a44eabcdb5ce58133c622c0f90c69782f1aa5 100755 (executable)
--- 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: $!";
 }