1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
Description: Replace Ogg::Vorbis::Header with Ogg::Vorbis::Header::PurePerl.
The former was removed from Debian.
Origin: vendor
Bug-Debian: https://bugs.debian.org/655410
Author: Tim Retout <diocles@debian.org>
Reviewed-by: gregor herrmann <gregoa@debian.org>
Last-Update: 2016-07-20
--- a/randomplay
+++ b/randomplay
@@ -10,7 +10,7 @@
use Term::ReadKey;
use POSIX ":sys_wait_h";
use MP3::Info;
-use Ogg::Vorbis::Header;
+use Ogg::Vorbis::Header::PurePerl;
use Time::localtime;
$| = 1;
@@ -417,7 +417,7 @@
$song_artist = $v if ($k =~ /artist/i);
}
} elsif ($next_song =~ /ogg$/i) {
- my $tag = Ogg::Vorbis::Header->new($next_song);
+ my $tag = Ogg::Vorbis::Header::PurePerl->new($next_song);
foreach ($tag->comment_tags) {
$song_info .= $_ . ": " . join(" ", (defined $tag->comment($_) ? $tag->comment($_) : "")) . "\n";
$song_title = join(" ", (defined $tag->comment($_) ? $tag->comment($_) : "")) if (/title/i);
|
