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 68ecde3c4bcb9f63a30095e3c93c7b8e430def4d..6a335990d3d9cab10771f86a6a8816287ba149d0 100755 (executable)
--- 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;