BIND 10 trac614, updated. 6458b98ea487620fd4c47b0de5b5bc2e5fe97794 [trac614] Add a cleaner of the valgrind output

[BIND 10 source code commits]

The branch, trac614 has been updated
       via  6458b98ea487620fd4c47b0de5b5bc2e5fe97794 (commit)
      from  4fa3cf5c5f623d24c357aac1d689a068528c73ce (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 6458b98ea487620fd4c47b0de5b5bc2e5fe97794
Author: Michal 'vorner' Vaner <michal.vaner at nic.cz>
Date:   Fri Feb 25 19:04:32 2011 +0100

    [trac614] Add a cleaner of the valgrind output

-----------------------------------------------------------------------

Summary of changes:
 tools/valgrind_test_cleaner.pl |   45 ++++++++++++++++++++++++++++++++++++++++
 1 files changed, 45 insertions(+), 0 deletions(-)
 create mode 100755 tools/valgrind_test_cleaner.pl

-----------------------------------------------------------------------
diff --git a/tools/valgrind_test_cleaner.pl b/tools/valgrind_test_cleaner.pl
new file mode 100755
index 0000000..7f8f432
--- /dev/null
+++ b/tools/valgrind_test_cleaner.pl
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my ($block, $blockOK);
+
+sub endBlock(_) {
+	return unless $block;
+	if ($blockOK) {
+		print @$block;
+	}
+	undef $block;
+	undef $blockOK;
+}
+
+sub startBlock(_) {
+	$block = [@_];
+}
+
+sub addToBlock(_) {
+	my ($line) = @_;
+	push @$block, $line;
+	return unless $line =~ /^==\d+==\s+(at|by) 0x[0-9A-F]+: (.*) \(.+:\d+\)$/;
+	$_ = $2;
+	return $blockOK = 1 if /^isc::/;
+	return $blockOK = 1 if /^asiolink:/;
+	return if /^main \(/;
+	return if /^testing::/;
+	return if /^\(anonymous namespace\)::/;
+	$blockOK = 1;
+}
+
+while(<>) {
+	if (/^==\d+==\s*$/) {
+		print;
+		endBlock;
+	} elsif (/^==\d+==\s+\d+bytes.*lost in loss record/) {
+		startBlock;
+	} elsif ($block) {
+		addToBlock;
+	} else {
+		print;
+	}
+}
+endBlock;