generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Changed the long logfile elision code in runtests.pl to properly handle

Browse Source 
lines ending in \r.
This commit is contained in:
Dan Fandrich
2008-07-24 02:16:48 +00:00
parent 27c282a6ee
commit 932b589780
2 changed files with 20 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
tests/runtests.pl
View File

@@ -2963,11 +2963,10 @@ open(CMDLOG, ">$CURLLOG") ||
#######################################################################
# Display the contents of the given file. Line endings are canonicalized
# and excessively long files are truncated
# and excessively long files are elided
sub displaylogcontent {
my ($file)=@_;
if(open(SINGLE, "<$file")) {
my $lfcount;
my $linecount = 0;
my $truncate;
my @tail;
@@ -2975,29 +2974,17 @@ sub displaylogcontent {
$string =~ s/\r\n/\n/g;
$string =~ s/[\r\f\032]/\n/g;
$string .= "\n" unless ($string =~ /\n$/);
$lfcount = $string =~ tr/\n//;
if($lfcount == 1) {
$string =~ s/\n//;
$string =~ s/\s*\!$//;
$linecount++;
if ($truncate) {
push @tail, " $string\n";
} else {
logmsg " $string\n";
}
}
else {
for my $line (split("\n", $string)) {
$line =~ s/\s*\!$//;
$linecount++;
if ($truncate) {
push @tail, " $line\n";
} else {
logmsg " $line\n";
}
}
}
$truncate = $linecount > 1000;
$string =~ tr/\n//;
for my $line (split("\n", $string)) {
$line =~ s/\s*\!$//;
if ($truncate) {
push @tail, " $line\n";
} else {
logmsg " $line\n";
}
$linecount++;
$truncate = $linecount > 1000;
}
}
if (@tail) {
logmsg "=== File too long: lines here were removed\n";