extern-scan.pl: strip trailing CR

This makes test 1135 pass with CRLF checkouts.

Ref: https://github.com/curl/curl/pull/1344#issuecomment-289243166
Closes https://github.com/curl/curl/pull/1422
This commit is contained in:
Marcel Raad 2017-04-16 14:58:08 +02:00
parent 5cefe201e9
commit c25aba1254
No known key found for this signature in database
GPG Key ID: B4668817AE6D6CD4
1 changed files with 3 additions and 1 deletions

View File

@ -49,7 +49,9 @@ sub scanheader {
open H, "<$f" || die;
while(<H>) {
if (/^(CURL_EXTERN.*)/) {
print "$1\n";
my $decl = $1;
$decl =~ s/\r$//;
print "$decl\n";
}
}
close H;