sort_elements: ignore everything except tags and booleans

[id3fs.git] / lib / ID3FS / Path.pm

diff --git a/lib/ID3FS/Path.pm b/lib/ID3FS/Path.pm
index d4fec73..8e7c791 100644 (file)
--- a/lib/ID3FS/Path.pm
+++ b/lib/ID3FS/Path.pm
@@ -301,7 +301,7 @@ sub parse
     @{$self->{elements}}=$self->sort_elements(@{$self->{elements}});
     my $thing=$self->elements_to_tree([ @{$self->{elements}} ]);
     $self->{tagtree}=$self->elements_to_tree([ @{$self->{elements}} ]);
-    print($self->{tagtree}->print(), "\n") if $self->{tagtree};
+#    print($self->{tagtree}->print(), "\n") if $self->{tagtree};
 }
 
 sub state
@@ -339,7 +339,7 @@ sub sort_elements
     my ($self, @input)=@_;
     my @opstack=();
     my @output=();
-    print "\nINPUT: ", join(', ', map { $_->{name}; } @input), "\n";
+#    print "INPUT: ", join(', ', map { $_->{name}; } @input), "\n";
     while(my $thing = shift @input)
     {
        if(ref($thing) eq "ID3FS::PathElement::Tag")
@@ -349,7 +349,7 @@ sub sort_elements
 #          print "OPSTACK: ", join(', ', map { $_->{name}; } @opstack), "\n";
 #          print "OUTPUT: ", join(', ', map { $_->{name}; } @output), "\n";
        }
-       else
+       elsif(ref($thing) eq "ID3FS::PathElement::Boolean")
        {
 #          print "BOOL: $thing->{name}\n";
            # bool
@@ -377,7 +377,7 @@ sub sort_elements
     {
        push(@output, pop(@opstack));
     }
-    print "STACK: ", join(', ', map { $_->{name}; } @output), "\n";
+#    print "STACK: ", join(', ', map { $_->{name}; } @output), "\n";
     return @output;
 }