diff options
author | Damyan Ivanov <dmn@debian.org> | 2022-12-30 21:15:19 +0100 |
---|---|---|
committer | gregor herrmann <gregoa@debian.org> | 2022-12-30 21:15:19 +0100 |
commit | 67a73cb3b174628698534df6376ba2af6684674f (patch) | |
tree | f6a80819cde8dbcb9493699eb541622a8bff431e | |
parent | 63323ca089a2c49395398fbe40ba5c0530efcd06 (diff) |
MP3::Tag::ID3v2 needs to load ::ID3v1 before referencing ::genres()HEADarchive/debian/1.16-1master
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=143614
Bug: https://rt.cpan.org/Ticket/Display.html?id=143614
Without this, a test as simple as `perl -Ilib -w -c lib/MP3/Tag/ID3v2.pm`
fails
Gbp-Pq: Name missing_load_of_ID3v1.patch
-rw-r--r-- | lib/MP3/Tag/ID3v2.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/MP3/Tag/ID3v2.pm b/lib/MP3/Tag/ID3v2.pm index 685825b..e420dc0 100644 --- a/lib/MP3/Tag/ID3v2.pm +++ b/lib/MP3/Tag/ID3v2.pm @@ -2600,6 +2600,7 @@ sub TCON { if (defined $how) { # called by what_data die unless $how eq 1 and $data eq 1; my $c=0; + require MP3::Tag::ID3v1; my %ret = map {$_, "(".$c++.")"} @{MP3::Tag::ID3v1::genres()}; $ret{"_FREE"}=1; $ret{Remix}='(RX)'; |