From: unknown <sysadmin@gnu.org>
Date: Tue, 8 Dec 2009 01:15:41 +0000 (-0600)
Subject: Import version as of 2009-12-07 for upload-ftp-v1.1.pl
X-Git-Tag: 20200730__import~37
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=05a61e61af0931a89c4db3b52002a501de0a82c1;p=gatekeeper.git

Import version as of 2009-12-07 for upload-ftp-v1.1.pl
---

diff --git a/upload-ftp-v1.1.pl b/upload-ftp-v1.1.pl
index 68ecde3..6a33599 100755
--- a/upload-ftp-v1.1.pl
+++ b/upload-ftp-v1.1.pl
@@ -106,7 +106,7 @@ my $style = '';
 my $help = '';
 my $version = '';
 # Set this to 1 or higher to get debug output in the log file.
-my $DEBUG = 0;
+my $DEBUG = 1;
 
 my $NOMAIL = 0;
 
@@ -508,8 +508,9 @@ sub email_addresses {
 }
 
 sub parse_directory_line {
-	my $tainted_val = shift;
-	my $directive_file_contents = shift;
+  my $tainted_val = shift;
+  my $directive_file_contents = shift;
+  $tainted_val =~ s/ *$//;  # Throw away trailing whitespace
   # $do_not_fail is set to 1 if this sub is called as a last resort in an attempt to find *someone* to report an error to.
   # When it is set, this sub will not die with &fatal.
   my $do_not_fail = shift;