projects
/
id3fs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix flac tag extraction
[id3fs.git]
/
lib
/
ID3FS
/
AudioFile
/
Flac.pm
diff --git
a/lib/ID3FS/AudioFile/Flac.pm
b/lib/ID3FS/AudioFile/Flac.pm
index
c2e821f
..
74953df
100644
(file)
--- a/
lib/ID3FS/AudioFile/Flac.pm
+++ b/
lib/ID3FS/AudioFile/Flac.pm
@@
-62,11
+62,13
@@
sub tags
my $tags={};
for my $key (keys %{$self->{tags}})
{
my $tags={};
for my $key (keys %{$self->{tags}})
{
+ print "CONSIDERING: $key\n";
if($key =~ /genre/i &&
defined($self->{tags}->{$key}) &&
length($self->{tags}->{$key}) &&
$self->{tags}->{$key} =~ /\S+/)
{
if($key =~ /genre/i &&
defined($self->{tags}->{$key}) &&
length($self->{tags}->{$key}) &&
$self->{tags}->{$key} =~ /\S+/)
{
+ print "KEY: $key, val: ", $self->{tags}->{$key}, "\n";
push(@tags, $self->{tags}->{$key});
}
}
push(@tags, $self->{tags}->{$key});
}
}
@@
-80,14
+82,14
@@
sub tags
my $tagname=$1;
my $tagval=$2;
$tagval=~s/\//-/g;
my $tagname=$1;
my $tagval=$2;
$tagval=~s/\//-/g;
- $
self->{tags}
->{$tagname}=$tagval;
+ $
tags
->{$tagname}=$tagval;
}
else
{
}
else
{
- $
self->{tags}
->{$tag}=undef;
+ $
tags
->{$tag}=undef;
}
}
}
}
- return $
self->{tags}
;
+ return $
tags
;
}
1;
}
1;