sub get
{
- my ($self, $tag, $complain)=@_;
+ my ($self, $tag)=@_;
for my $commenttype (@{$self->{comments}})
{
if($commenttype =~ /$tag/i)
}
}
}
- warn("$self->{path}: no $tag defined in Ogg comments\n") if($complain);
return undef;
}
-sub artist { shift->get("Artist", 1); }
-sub album { shift->get("Album", 1); }
-sub audiotype { return "ogg"; }
-sub haspic { return undef; } # FIXME
-sub v1genre { return undef; } # ID3 only
-# We don't care if year is not set
-sub year { shift->get("Date", 0); }
+sub artist { shift->get("Artist"); }
+sub album { shift->get("Album"); }
+sub audiotype { return "ogg"; }
+sub haspic { return undef; } # FIXME
+sub v1genre { return undef; } # ID3 only
+sub year { shift->get("Date"); }
sub tags
{