[Pkg-clamav-commits] [SCM] Debian repository for ClamAV branch, debian/unstable, updated. debian/0.95+dfsg-1-6156-g094ec9b

[aCaB]

The following commit has been merged in the debian/unstable branch:
commit 768ff43926a2be4d6b1371f903cfad8f9dae95de
Author: aCaB <acab at clamav.net>
Date:   Fri Jan 15 03:15:09 2010 +0100

    remove garbage

diff --git a/countme.pl b/countme.pl
deleted file mode 100644
index 71866c5..0000000
--- a/countme.pl
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-my %h = ();
-my $added = 0;
-my $found = 0;
-my $notfound = 0;
-
-while(1) {
-	my $hash = '';
-	last if(read(STDIN, $hash, 17) != 17);
-	my $op = substr($hash, 0, 1);
-	$hash = substr($hash, 1);
-	if($op eq "A") {
-		$h{$hash} = 1;
-		$added++;
-	} elsif ($op eq "C") {
-		if(exists($h{$hash})) {
-			$found++;
-		} else {
-			$notfound++;
-		}
-	} else {
-		die "bad command $op\n";
-	}
-}
-
-my $lookups = $found + $notfound;
-print "added: $added\nlooked up: $lookups (found $found, not found $notfound)\n";
-printf "items in the hash: ".(scalar keys %h)."\n";
-
diff --git a/grptr.pl b/grptr.pl
deleted file mode 100644
index 7500e33..0000000
--- a/grptr.pl
+++ /dev/null
@@ -1,51 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-my ($event, $trace);
-my %locks;
-my $t;
-
-while(<>) {
-	chomp;
-	next if /^#/;
-	if (/^\s+(.*)-\d+\s+\[\d+\]\s+[0-9.]+: (.*) \(([0-9.]+) us\)$/) {
-		$locks{$trace} += $t if defined $t;
-		$t = $3;
-		$trace="$1: $2\n";
-		next;
-	}
-	next unless s/^ => ([^\s])/$1/;
-	$trace.="$_\n";
-}
-$locks{$trace} += $t+0 if defined $t;
-
-foreach (sort { $locks{$b} <=> $locks{$a} } keys %locks) {
-	last unless $locks{$_} >= 100000;
-	my @bt = split "\n";
-	print "--- $locks{$_} us --- $bt[0]\n";
-	my $i;
-	for ($i = 1; $i <= $#bt; $i++) {
-		my $l = $bt[$i];
-		if ($l =~ /^(\/.*)\[\+(0x.*)\]$/) {
-			my $path = $1;
-			my $addr = $2;
-			my $code = `addr2line -fe "$path" $addr`;
-			my @spam = split("\n", $code);
-			if ($? != 0) {
-				$code = "$addr";
-			} else {
-				$code = "$spam[0] - $spam[1]";
-			}
-			$l = "$path [$code]";
-		} elsif ($l =~ /^ /) {
-			$l.=" (unknown)";
-		} else {
-			$l.=" (kernel)";
-		}
-
-		print "$l\n";
-	}
-	print "\n";
-}
diff --git a/hashes.lzma b/hashes.lzma
deleted file mode 100644
index 8f6fcc9..0000000
Binary files a/hashes.lzma and /dev/null differ

-- 
Debian repository for ClamAV