Loading tests/libtest/test1013.pl +2 −1 Original line number Diff line number Diff line Loading @@ -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; Loading Loading
tests/libtest/test1013.pl +2 −1 Original line number Diff line number Diff line Loading @@ -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; Loading