From: Ian Beckwith <ianb@erislabs.net>
Date: Sun, 3 Oct 2010 17:18:14 +0000 (+0100)
Subject: constraints_tag_list: handle dangling tag with unspecified value
X-Git-Tag: debian/1.0-1~132
X-Git-Url: http://erislabs.net/gitweb/?p=id3fs.git;a=commitdiff_plain;h=6af9f8a622dcd143c48a2e6491ff587843f6bcc2

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
--- 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;