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

supprt for the new memlimit stuff

Browse Source
This commit is contained in:
Daniel Stenberg
2003-08-14 22:38:03 +00:00
parent 09b5ddaea5
commit 3974c02bb1
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tests/memanalyze.pl
View File

@@ -45,7 +45,15 @@ while(<FILE>) {
chomp $_; chomp $_;
$line = $_; $line = $_;
if($line =~ /^MEM ([^ ]*):(\d*) (.*)/) { if($line =~ /^LIMIT ([^ ]*):(\d*) (.*)/) {
# new memory limit test prefix
my $i = $3;
my ($source, $linenum) = ($1, $2);
if($trace && ($i =~ /([^ ]*) reached memlimit/)) {
print "LIMIT: $1 returned error at $source:$linenum\n";
}
}
elsif($line =~ /^MEM ([^ ]*):(\d*) (.*)/) {
# generic match for the filename+linenumber # generic match for the filename+linenumber
$source = $1; $source = $1;
$linenum = $2; $linenum = $2;