Bug#655410: randomplay: diff for NMU version 0.60+nmu1

[Tim Retout]

tags 655410 + patch
tags 655410 + pending
thanks

Dear maintainer,

I've prepared an NMU for randomplay (versioned as 0.60+nmu1) and
uploaded it to DELAYED/10. Please feel free to tell me if I
should delay it longer.

Regards.

diff -Nru randomplay-0.60/debian/changelog randomplay-0.60+nmu1/debian/changelog
--- randomplay-0.60/debian/changelog	2006-10-15 18:12:07.000000000 +0100
+++ randomplay-0.60+nmu1/debian/changelog	2012-04-09 21:22:42.000000000 +0100
@@ -1,3 +1,11 @@
+randomplay (0.60+nmu1) unstable; urgency=low
+
+  * Non-maintainer upload.
+  * Use Ogg::Vorbis::Header::PurePerl instead of Ogg::Vorbis::Header.
+    (Closes: #655410)
+
+ -- Tim Retout <dioc...@debian.org>  Mon, 09 Apr 2012 21:21:41 +0100
+
 randomplay (0.60) unstable; urgency=low
 
   * New options --older-than and --newer-than, to only play files whose
diff -Nru randomplay-0.60/debian/control randomplay-0.60+nmu1/debian/control
--- randomplay-0.60/debian/control	2006-10-15 18:13:20.000000000 +0100
+++ randomplay-0.60+nmu1/debian/control	2012-04-09 21:24:06.000000000 +0100
@@ -8,7 +8,7 @@
 Package: randomplay
 Section: sound
 Architecture: all
-Depends: ${perl:Depends}, libdate-calc-perl, libterm-readkey-perl, libmp3-info-perl, libogg-vorbis-header-perl, libdate-manip-perl
+Depends: ${perl:Depends}, libdate-calc-perl, libterm-readkey-perl, libmp3-info-perl, libogg-vorbis-header-pureperl-perl, libdate-manip-perl
 Recommends: vorbis-tools, mpg321
 Suggests: xosd-bin
 Description: command-line based shuffle music player that remembers songs between sessions
diff -Nru randomplay-0.60/randomplay randomplay-0.60+nmu1/randomplay
--- randomplay-0.60/randomplay	2006-10-15 18:22:24.000000000 +0100
+++ randomplay-0.60+nmu1/randomplay	2012-04-09 21:21:10.000000000 +0100
@@ -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);