aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtests/libtest/test1013.pl3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/libtest/test1013.pl b/tests/libtest/test1013.pl
index 2f67717c5..15e121415 100755
--- a/tests/libtest/test1013.pl
+++ b/tests/libtest/test1013.pl
@@ -14,10 +14,11 @@ my $curl_protocols="";
open(CURL, "$ARGV[1]") || die "Can't get curl $what list\n";
while( <CURL> )
{
- $curl_protocols = lc($_ =~ s/\r//) if ( /$what:/i );
+ $curl_protocols = lc($_) if ( /$what:/i );
}
close CURL;
+$curl_protocols =~ s/\r//;
$curl_protocols =~ /\w+: (.*)$/;
@curl = split / /,$1;