Revise use of system() in check_files

The indirect object form of system absolutely does not use the shell.

diff --git a/gatekeeper.pl b/gatekeeper.pl
index c56a45bbd48fb5323090af3e50c07d9cedd61fa5..4d21ccb1c6d10a7a704d88d9584ff4d792bf9cef 100755 (executable)
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -1811,9 +1811,8 @@ sub check_files {
   my $valid = 0;
   foreach my $keyring (@keyrings) {
     # Verify that the file has been correctly signed with a valid signature.
-    my @verify_args = (GPGV_BIN, "--keyring", $keyring,
-          $sig_file, $upload_file);
-    if (!system (@verify_args)) {
+    my @gpgv_args = ('--keyring' => $keyring, $sig_file, $upload_file);
+    if (0 == system { GPGV_BIN } 'gpgv', @gpgv_args) {
       $valid = 1;
       last;
     }