| Subject: | Wrong year value provided to year method |
| Date: | Mon, 07 Nov 2016 20:45:45 +0000 |
| To: | bug-Music-Tag-FLAC [...] rt.cpan.org |
| From: | Patryk P <pilchu87 [...] gmail.com> |
Hi,
It seems that module provides wrong year value of regular year in 4 digits
whereas epoch should be provided. So that all FLAC files report release
date as 1970. Since I'm just Perl noob I've managed to fix it only by
editing FLAC.pm as below:
sub get_tag {
my $self = shift;
if ( $self->flac ) {
while (my ($t, $v) = each %{$self->flac->tags}) {
$t = uc($t);
Show quoted text
>>>> if ($t eq 'DATE') { $v = timelocal(0,0,0,1,1,$v) };
I hope it helps someone to use that module.
Br,
Pat