moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-22 16:18:48 -05:00
Code Issues Releases Wiki Activity

Further improve displaying of individual logfiles

Browse Source
This commit is contained in:
Yang Tse 2007-04-05 00:14:27 +00:00
parent c321b9f704
commit 70f9a13ecb
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/runtests.pl
View File

@ -2426,11 +2426,24 @@ open(CMDLOG, ">$CURLLOG") ||
sub displaylogcontent {
my ($file)=@_;
if(open(my $SINGLE, "<$file")) {
while(my $line = <$SINGLE>) {
chomp $line;
my $lfcount;
while(my $string = <$SINGLE>) {
$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*\!$//;
logmsg " $string\n";
}
else {
for my $line (split("\n", $string)) {
$line =~ s/\s*\!$//;
logmsg " $line\n";
}
}
}
close($SINGLE);
}
}