From 05a61e61af0931a89c4db3b52002a501de0a82c1 Mon Sep 17 00:00:00 2001 From: unknown Date: Mon, 7 Dec 2009 19:15:41 -0600 Subject: [PATCH] Import version as of 2009-12-07 for upload-ftp-v1.1.pl --- upload-ftp-v1.1.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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; -- 2.25.1