From: Jacob Bachmeyer <jcb@gnu.org>
Date: Sun, 9 Aug 2020 16:55:22 +0000 (-0500)
Subject: Emergency fix:  do not run with '.' in @INC
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=3aed5f98edd9feb5b21dd8c34a0213a3153debc6;p=gatekeeper.git

Emergency fix:  do not run with '.' in @INC
---

diff --git a/upload-ftp-v1.2.pl b/upload-ftp-v1.2.pl
index 93122a7..4a81413 100755
--- a/upload-ftp-v1.2.pl
+++ b/upload-ftp-v1.2.pl
@@ -106,6 +106,10 @@ use Cwd;
 use Email::MessageID;
 umask (022);
 
+use lib '.';
+use CheckVulnerabilities qw(&check_vulnerabilities);
+no lib '.';
+
 $ENV{"LC_ALL"} = "C";  # do not think about multibyte characters
 
 # Clean env so we can run subprograms, notably gpgv and lsof.
@@ -1005,8 +1009,6 @@ sub check_files {
   $valid
     or &fatal("gpg verify of upload file ($upload_file) failed",1);
 
-  use lib '.';
-  use CheckVulnerabilities qw(&check_vulnerabilities);
   my ($error_string, $error_log_ref) = check_vulnerabilities($upload_file,$log_style,$DEBUG);
 
   my @error_log = @$error_log_ref;