exclude stuff in '/share'

a27737f8 · Timothy Stack · 3e096c06 · a27737f8
Commit a27737f8 authored Jan 06, 2006 by Timothy Stack
Show whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

tbsetup/libArchive.pm.in tbsetup/libArchive.pm.in +5 -0

No files found.
--- a/tbsetup/libArchive.pm.in
+++ b/tbsetup/libArchive.pm.in
@@ -1176,6 +1176,11 @@ sub TBExperimentArchiveAddTracedFiles($$)
 		     "LEFT JOIN accessed_files as af on af.idx=fr.fileidx ".
 		     "WHERE fr.rsrcidx=$rsrcidx and fr.type!='l'");
    while (my ($fn) = $query_result->fetchrow_array()) {
+	if ($fn =~ /^\/share/ ||
+	    $fn =~ /^<u:/) {
+	    next;
+	}
+
 	$rval = ArchiveAdd($archive_idx, $fn, $view);

 	return $rval