From 3aed5f98edd9feb5b21dd8c34a0213a3153debc6 Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb@gnu.org>
Date: Sun, 9 Aug 2020 11:55:22 -0500
Subject: [PATCH] Emergency fix:  do not run with '.' in @INC

---
 upload-ftp-v1.2.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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;
-- 
2.25.1