constraints_tag_list: handle dangling tag with unspecified value

diff --git a/lib/ID3FS/DB.pm b/lib/ID3FS/DB.pm
index 19015fd..fd0b7a7 100644 (file)
--- a/lib/ID3FS/DB.pm
+++ b/lib/ID3FS/DB.pm
@@ -416,7 +416,7 @@ sub constraints_tag_list
     my @tags_vals=();
     for my $constraint (@constraints)
     {
-       print ref($constraint), $constraint->{name}, "\n";
+       print ref($constraint), ": ", $constraint->{name}, "\n";
        if(ref($constraint) eq "ID3FS::PathElement::Tag")
        {
            if(defined($lasttag))
@@ -437,6 +437,11 @@ sub constraints_tag_list
            }
        }
     }
+    # handle dangling tag with unspecified value
+    if(defined($lasttag))
+    {
+       push(@tags, $lasttag);
+    }
     unless($self->{postgres})
     {
        @tags=map{ "\"$_\""; } @tags;