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))
}
}
}
+ # handle dangling tag with unspecified value
+ if(defined($lasttag))
+ {
+ push(@tags, $lasttag);
+ }
unless($self->{postgres})
{
@tags=map{ "\"$_\""; } @tags;