From: Ian Beckwith <ianb@erislabs.net>
Date: Mon, 18 Oct 2010 07:34:25 +0000 (+0100)
Subject: remove some debugging messages
X-Git-Tag: debian/1.0-1~64
X-Git-Url: http://erislabs.net/gitweb/?p=id3fs.git;a=commitdiff_plain;h=fb37f8cca3d20be63e245717448a1d2ce1e3b5fb

remove some debugging messages
---

diff --git a/lib/ID3FS/Path.pm b/lib/ID3FS/Path.pm
index 4947256..aa2e62e 100644
--- a/lib/ID3FS/Path.pm
+++ b/lib/ID3FS/Path.pm
@@ -352,13 +352,8 @@ sub parse
     $self->{tagtree}=$self->elements_to_tree(\@elements);
     if($self->{tagtree})
     {
-	my ($conditions, @joins)=$self->{tagtree}->to_sql();
+#	my ($conditions, @joins)=$self->{tagtree}->to_sql();
 #	print "CONDITIONS(", scalar(@joins), "): ", $conditions, "\n";
-#	print "TREE: ",  $self->{tagtree}->print(), "\n";
-#	print("SQL CONDITION(", scalar(@{$self->{joins}}), "): ",
-#	      $self->{sqlconditions}, "\n");
-#	use Data::Dumper;
-#	print Dumper $self->{tagtree};
     }
 }
 
@@ -724,8 +719,6 @@ sub tags_subselect
     }
     my $tree=$self->{tagtree};
     print "UNDEF!!\n" unless($self->{tagtree});
-    use Data::Dumper;
-    print Dumper $tree;
     my $parent=$self->trailing_tag_parent();
 
 #    print "ELEMENTS: ", join('/', map { $_->{name}; } @{$self->{elements}}), "\n";
@@ -852,14 +845,14 @@ sub filter
     my @outdirs=();
     for my $dir (@dirs)
     {
-	print "\nFILTER (",$self->state(), "): $base / $dir\n";
+#	print "\nFILTER (",$self->state(), "): $base / $dir\n";
 	if($self->empty("$base/$dir"))
 	{
-	    print "empty: $base / $dir\n";
+#	    print "empty: $base / $dir\n";
 	}
 	else
 	{
-	    print "non-empty, accepting: $base / $dir\n";
+#	    print "non-empty, accepting: $base / $dir\n";
 	    push(@outdirs, $dir);
 	}
     }
diff --git a/lib/ID3FS/Path/Node.pm b/lib/ID3FS/Path/Node.pm
index 377e8dd..681a66c 100644
--- a/lib/ID3FS/Path/Node.pm
+++ b/lib/ID3FS/Path/Node.pm
@@ -154,7 +154,6 @@ sub used_tags
 	my @used=();
 	push(@used, $self->left()->used_tags())  if($self->left());
 	push(@used, $self->right()->used_tags()) if($self->right());
-	print "BOOL: ", $self->name(), join(', ', grep { defined; } @used), "\n";
 	return(grep { defined; } @used);
     }
     elsif($self->parents_id())