From: Gunnar Wolf <gwolf@debian.org>
Origin: vendor
Bug-Debian: http://bugs.debian.org/655409
Forwarded: not needed
Last-Updat: 2012-01-10
Description: Follow the pkg-perl team's module recommendation
 The pkg-perl team requested the use of a pure-perl drop-in
 reimplementation of Ogg::Vorbis::Header

Index: mp3roaster/mp3roaster
===================================================================
--- mp3roaster.orig/mp3roaster	2011-10-19 12:45:35.000000000 -0500
+++ mp3roaster/mp3roaster	2012-01-10 16:21:09.000000000 -0600
@@ -29,7 +29,7 @@
 use File::MMagic;           # Guess file type
 use Term::ReadKey;          # Module for simple terminal control
 use MP3::Info;          # Allows to get MP3 infos
-use Ogg::Vorbis::Header;    # Perl extension for Ogg Vorbis streams
+use Ogg::Vorbis::Header::PurePerl; # Perl extension for Ogg Vorbis streams
 use Audio::FLAC::Header;    # Perl extension for FLAC files
 use Audio::Wav              # Perl extension for wav files
 
@@ -613,12 +613,12 @@
 #
 # We have four dependences for this function:
 #
-#   DEPENDENCY MODULE       DEBIAN PACKAGE
-#   -------------------------------------------------
-#   MPEG::MP3Info           libmp3-info-perl
-#   Ogg::Vorbis::Header     libogg-vorbis-header-perl
-#   Audio::FLAC::Header     libaudio-flac-header-perl
-#   Audio::Wav              libaudio-wav-perl
+#   DEPENDENCY MODULE                 DEBIAN PACKAGE
+#   --------------------------------------------------------------------
+#   MPEG::MP3Info                     libmp3-info-perl
+#   Ogg::Vorbis::Header::PurePerl     libogg-vorbis-header-pureperl-perl
+#   Audio::FLAC::Header               libaudio-flac-header-perl
+#   Audio::Wav                        libaudio-wav-perl
 #
 sub fetch_file_time {
 
@@ -626,7 +626,7 @@
     my $sub = "FETCH_FILE_TIME";    # subroutine name
 
     my $mp3info;                    # get_mp3info() return
-    my $ogg;                        # holds the Ogg::Vorbis::Header object
+    my $ogg;                        # holds the Ogg::Vorbis::Header::PurePerl object
     my $oggtime;                    # holds the ogg's length in seconds
     my $flac;                       # holds the Audio::FLAC object
     my $flactime;                   # holds the flac's length in seconds
@@ -671,10 +671,10 @@
         } elsif (check_file_type($file) eq "ogg") {
 
             #
-            #   We use Ogg::Vorbis::Header here
+            #   We use Ogg::Vorbis::Header::PurePerl here
             #   Example: http://search.cpan.org/src/FOOF/libvorbis-perl-0.02/test.pl
             #
-            $ogg = Ogg::Vorbis::Header->load($file);
+            $ogg = Ogg::Vorbis::Header::PurePerl->load($file);
             $oggtime = $ogg->info("length");
 
             $tot_secs += $oggtime + $fudge;
