--- pkgcruft.orig	2006-03-27 01:29:49.000000000 +0200
+++ pkgcruft	2006-03-27 01:46:59.000000000 +0200
@@ -39,6 +39,8 @@
 
 sub wanted
 {
+	return if !defined($files{$File::Find::dir . '/'});
+
 	my $name = $File::Find::name;
 	if (-d $name && ! -l $name) { $name .= '/'; }