Emergency fix: do not run with '.' in @INC
authorJacob Bachmeyer <jcb@gnu.org>
Sun, 9 Aug 2020 16:55:22 +0000 (11:55 -0500)
committerJacob Bachmeyer <jcb@gnu.org>
Sun, 9 Aug 2020 16:55:22 +0000 (11:55 -0500)
upload-ftp-v1.2.pl

index 93122a7fdba6f13aa88adab9f90a57f577f3c890..4a814135911b461c869ab4ec1fa5c956cc605f85 100755 (executable)
@@ -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;