projects
/
id3fs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bb635a7
)
fix flac tag extraction
author
Ian Beckwith
<ianb@erislabs.net>
Sun, 26 Sep 2010 05:18:28 +0000
(06:18 +0100)
committer
Ian Beckwith
<ianb@erislabs.net>
Sun, 26 Sep 2010 05:18:28 +0000
(06:18 +0100)
lib/ID3FS/AudioFile/Flac.pm
patch
|
blob
|
history
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;