From fd9288aa5f531435e0577c56e49ca58a35f1cac0 Mon Sep 17 00:00:00 2001 From: Ian Beckwith Date: Mon, 18 Oct 2010 15:47:53 +0100 Subject: [PATCH] remove debug code --- lib/ID3FS/Path.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lib/ID3FS/Path.pm b/lib/ID3FS/Path.pm index e81f585..01831fc 100644 --- a/lib/ID3FS/Path.pm +++ b/lib/ID3FS/Path.pm @@ -680,8 +680,6 @@ sub tags_subselect my $tree=$self->{tagtree}; # FIXME print "UNDEF!!\n" unless($self->{tagtree}); - use Data::Dumper; - print Dumper $self->{tagtree}; my $parent=$self->trailing_tag_parent(); # print "ELEMENTS: ", join('/', map { $_->{name}; } @{$self->{elements}}), "\n"; @@ -694,7 +692,7 @@ sub tags_subselect } my ($sqlclause, @joins)=(undef, ()); ($sqlclause, @joins) = $tree->to_sql($hasvals) if($tree); - print "SQL(" . scalar(@joins) .": $sqlclause\n"; +# print "SQL(" . scalar(@joins) ."): $sqlclause\n"; my $sql="\tSELECT fxt1.files_id FROM tags t1"; my @crosses=(); my @inners=(); -- 2.11.0