debian/0000755000000000000000000000000012231166114007163 5ustar debian/watch0000644000000000000000000000016012141564057010221 0ustar version=3 https://metacpan.org/release/Device-Cdio/ .*/Device-Cdio-v?(\d[\d.]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip) debian/libdevice-cdio-perl.examples0000644000000000000000000000001312141564056014526 0ustar examples/* debian/rules0000755000000000000000000000014412141564057010252 0ustar #!/usr/bin/make -f %: dh $@ --buildsystem=perl_build override_dh_auto_test: TZ=UTC dh_auto_test debian/copyright0000644000000000000000000000313612141564056011130 0ustar Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Upstream-Name: Device-Cdio Upstream-Contact: Rocky Bernstein Source: https://metacpan.org/release/Device-Cdio/ Files: * Copyright: 2006-2011, Rocky Bernstein License: GPL-3+ Files: examples/checkcd.pl Copyright: 2011, jerry geiger License: GPL-3+ Files: debian/* Copyright: 2007-2012, Martín Ferrari 2007-2012, gregor herrmann 2008, Roberto C. Sanchez License: GPL-3+ or Artistic or GPL-1+ License: Artistic This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, which comes with Perl. . On Debian systems, the complete text of the Artistic License can be found in `/usr/share/common-licenses/Artistic'. License: GPL-1+ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. . On Debian systems, the complete text of version 1 of the GNU General Public License can be found in `/usr/share/common-licenses/GPL-1'. License: GPL-3+ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; version 3 dated June, 2007, or (at your option) any later version. . On Debian systems, the complete text of version 3 of the GNU General Public License can be found in `/usr/share/common-licenses/GPL-3'. debian/source/0000755000000000000000000000000012141564057010473 5ustar debian/source/format0000644000000000000000000000001412141564057011701 0ustar 3.0 (quilt) debian/patches/0000755000000000000000000000000012141566575010631 5ustar debian/patches/02_wrong_function_name.patch0000644000000000000000000000111312141564056016200 0ustar Author: Martín Ferrari Description: This is surely a mistake in libcdio, as the name in not coherent with the rest of the API. Nevertheless, this wasn't working as it was. --- a/swig/perliso9660.swg +++ b/swig/perliso9660.swg @@ -546,8 +546,8 @@ Returns stat_t of entry if we found lsn, or NULL otherwise. */ -%rename iso9660_find_ifs_lsn ifs_find_lsn; -IsoStat_t *iso9660_find_ifs_lsn(const iso9660_t *p_iso, lsn_t i_lsn); +%rename iso9660_ifs_find_lsn ifs_find_lsn; +IsoStat_t *iso9660_ifs_find_lsn(const iso9660_t *p_iso, lsn_t i_lsn); #endif debian/patches/05_tests-in-chroot.patch0000644000000000000000000000175312141564056015216 0ustar Description: skip tests that need a CDROM drive to enable building in a chroot Origin: vendor Forwarded: no Author: gregor herrmann Last-Update: 2012-06-16 --- a/t/05.ops.t +++ b/t/05.ops.t @@ -14,6 +14,9 @@ use Test::More tests => 6; note 'Test running miscellaneous operations'; +SKIP: { +skip "No device '/dev/cdrom' found", 6 unless -e "/dev/cdrom"; + my @drives = Device::Cdio::get_devices(); ok ( 1 , 'Device::Cdio::get_devices'); @drives = Device::Cdio::get_devices_with_cap($perlcdio::FS_MATCH_ALL); @@ -26,3 +29,5 @@ ok ( 1 , 'Device::Cdio::Device::have_ATAPI'); $dev->get_media_changed(); ok ( 1 , 'Device::Cdio::Device::get_media_changed'); + +} --- a/t/11.dev.t +++ b/t/11.dev.t @@ -16,6 +16,8 @@ #should be imported from Build.PL or ... my $device = '/dev/cdrom'; +plan skip_all => "No device '$device' found" unless -e $device; + note 'Test running audio device operations'; my $dev = Device::Cdio::Device->new(-driver_id=>$perlcdio::DRIVER_DEVICE); debian/patches/06_spelling.patch0000644000000000000000000000107312141564056013765 0ustar Description: spelling mistake Origin: vendor Forwarded: no Author: gregor herrmann Last-Update: 2012-06-16 --- a/lib/Device/Cdio/Track.pm +++ b/lib/Device/Cdio/Track.pm @@ -281,7 +281,7 @@ $isrc = $track->get_track_isrc; Returns an empty string or the International Standard Recording Code. -Which is presented in 4 hyphen seperated substrings: "CC-XXX-YY-NNNNN" +Which is presented in 4 hyphen separated substrings: "CC-XXX-YY-NNNNN" "CC" two-character ISO 3166-1 alpha-2 country code "XXX" is a three character alphanumeric registrant code debian/patches/03_version_information_in_swig.patch0000644000000000000000000000144312141564056017757 0ustar Author: Martín Ferrari Description: The conditional compilation based on the lib's version wasn't working. --- a/swig/device.swg +++ b/swig/device.swg @@ -17,6 +17,7 @@ /* See for more extensive documentation. */ %include "device_const.swg" +#include /* Set up to allow functions to return device lists of type "char *". We'll use a typedef so we can make sure to isolate this. I --- a/swig/perliso9660.swg +++ b/swig/perliso9660.swg @@ -42,7 +42,7 @@ %constant long int RECORD = ISO_RECORD; /* When version 0.77 comes out, require it and fix this fix this. */ -#if 0 +#if LIBCDIO_VERSION_NUM >= 77 %constant long int PROTECTION = ISO_PROTECTION; #else %constant long int PROTECTION = 16; debian/patches/series0000644000000000000000000000026712141565266012047 0ustar 02_wrong_function_name.patch 03_version_information_in_swig.patch 04_wrong_handling_of_output_parameters.patch 05_tests-in-chroot.patch 06_spelling.patch 07_fix_perl_5.16_ftbfs.patch debian/patches/04_wrong_handling_of_output_parameters.patch0000644000000000000000000000727412141564056021506 0ustar Author: Martín Ferrari Description: The return parameters handling was incorrect and resulted in weird behaviour. But it somehow passed the tests. --- a/lib/Device/Cdio/ISO9660/FS.pm +++ b/lib/Device/Cdio/ISO9660/FS.pm @@ -116,9 +116,6 @@ my @values = perliso9660::fs_find_lsn($self->{cd}, $lsn); - # Remove the two input parameters - splice(@values, 0, 2) if @values > 2; - return Device::Cdio::ISO9660::stat_array_to_href(@values); } @@ -179,9 +176,6 @@ my @values = perliso9660::fs_readdir($self->{cd}, $dirname); - # Remove the two input parameters - splice(@values, 0, 2) if @values > 2; - my @result = (); while (@values) { push @result, Device::Cdio::ISO9660::stat_array_to_href(@values); @@ -294,9 +288,6 @@ @values = perliso9660::fs_stat($self->{cd}, $path); } - # Remove the input parameters - splice(@values, 0, 2) if @values > 2; - return undef if !@values; return Device::Cdio::ISO9660::stat_array_to_href(@values); } --- a/lib/Device/Cdio/ISO9660/IFS.pm +++ b/lib/Device/Cdio/ISO9660/IFS.pm @@ -476,9 +476,6 @@ my @values = perliso9660::ifs_readdir($self->{iso9660}, $dirname); - # Remove the two input parameters - splice(@values, 0, 2) if @values > 2; - my @result = (); while (@values) { push @result, Device::Cdio::ISO9660::stat_array_to_href(@values); @@ -612,9 +609,6 @@ @values = perliso9660::ifs_stat($self->{iso9660}, $path); } - # Remove the input parameters - splice(@values, 0, 2) if @values > 2; - return undef if !@values; return Device::Cdio::ISO9660::stat_array_to_href(@values); } --- a/swig/perliso9660.swg +++ b/swig/perliso9660.swg @@ -97,12 +97,11 @@ PPCODE: /* Have perl compute the length of the string using strlen() */ - XPUSHs(sv_2mortal(newSVpv(p_statbuf->filename, 0))); - XPUSHs(sv_2mortal(newSViv(p_statbuf->lsn))); - XPUSHs(sv_2mortal(newSViv(p_statbuf->size))); - XPUSHs(sv_2mortal(newSViv(p_statbuf->secsize))); - XPUSHs(sv_2mortal(newSViv(p_statbuf->type))); - argvi += 7; + %append_output(sv_2mortal(newSVpv(p_statbuf->filename, 0))); + %append_output(sv_2mortal(newSViv(p_statbuf->lsn))); + %append_output(sv_2mortal(newSViv(p_statbuf->size))); + %append_output(sv_2mortal(newSViv(p_statbuf->secsize))); + %append_output(sv_2mortal(newSViv(p_statbuf->type))); free (p_statbuf); out: ; } @@ -111,30 +110,23 @@ // $1 is of type IsoStatList_t CdioList_t *p_entlist = result; CdioListNode_t *p_entnode; - unsigned int num = 0; if (!result) goto out; PPCODE: - /* Figure out how many items in the array */ - _CDIO_LIST_FOREACH (p_entnode, p_entlist) { - num +=5; - } - /* For each element in the array of strings, create a new * mortalscalar, and stuff it into the above array. */ _CDIO_LIST_FOREACH (p_entnode, p_entlist) { iso9660_stat_t *p_statbuf = (iso9660_stat_t *) _cdio_list_node_data (p_entnode); /* Have perl compute the length of the string using strlen() */ - XPUSHs(sv_2mortal(newSVpv(p_statbuf->filename, 0))); - XPUSHs(sv_2mortal(newSViv(p_statbuf->lsn))); - XPUSHs(sv_2mortal(newSViv(p_statbuf->size))); - XPUSHs(sv_2mortal(newSViv(p_statbuf->secsize))); - XPUSHs(sv_2mortal(newSViv(p_statbuf->type))); + %append_output(sv_2mortal(newSVpv(p_statbuf->filename, 0))); + %append_output(sv_2mortal(newSViv(p_statbuf->lsn))); + %append_output(sv_2mortal(newSViv(p_statbuf->size))); + %append_output(sv_2mortal(newSViv(p_statbuf->secsize))); + %append_output(sv_2mortal(newSViv(p_statbuf->type))); } _cdio_list_free (p_entlist, true); - argvi += num + 2; out: ; } debian/patches/07_fix_perl_5.16_ftbfs.patch0000644000000000000000000000257712141566573015636 0ustar From: Dominic Hargreaves Subject: Fix FTBFS with perl 5.16 Original credit to 'sander85'. This is labelled in the Mageia SVN tree as fixing the build for GCC 4.7, but it's actually fixing the build with perl 5.16. The build succeeds without this patch with GCC 4.7 and perl 5.14. Origin: http://svnweb.mageia.org/packages/cauldron/perl-Device-Cdio/current/SOURCES/perl-Device-Cdio-0.3.0-gcc-4.7.patch?revision=388352&view=markup Bug: https://rt.cpan.org/Public/Bug/Display.html?id=77579 Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=676272 Forwarded: yes diff --git a/perlcdio_wrap.c b/perlcdio_wrap.c index 66e8e5e..d3227f4 100644 --- a/perlcdio_wrap.c +++ b/perlcdio_wrap.c @@ -296,6 +296,7 @@ SWIGINTERNINLINE int SWIG_CheckState(int r) { #include +#include #ifdef __cplusplus extern "C" { diff --git a/perliso9660_wrap.c b/perliso9660_wrap.c index 2270753..4ade706 100644 --- a/perliso9660_wrap.c +++ b/perliso9660_wrap.c @@ -296,6 +296,7 @@ SWIGINTERNINLINE int SWIG_CheckState(int r) { #include +#include #ifdef __cplusplus extern "C" { diff --git a/perlmmc_wrap.c b/perlmmc_wrap.c index 04f6380..e618066 100644 --- a/perlmmc_wrap.c +++ b/perlmmc_wrap.c @@ -296,6 +296,7 @@ SWIGINTERNINLINE int SWIG_CheckState(int r) { #include +#include #ifdef __cplusplus extern "C" { debian/compat0000644000000000000000000000000212141564056010370 0ustar 9 debian/control0000644000000000000000000000237712141565355010611 0ustar Source: libdevice-cdio-perl Section: perl Priority: optional Build-Depends: debhelper (>= 9.20120312), perl, libcdio-dev (>= 0.82), perl (>= 5.13.8) | libextutils-cbuilder-perl (>= 0.280000), libextutils-pkgconfig-perl, libiso9660-dev, perl (>= 5.13.11) | libmodule-build-perl (>= 0.380000), libtest-pod-coverage-perl, libtest-pod-perl, swig Maintainer: Debian Perl Group Uploaders: Martín Ferrari , gregor herrmann , Dominic Hargreaves Standards-Version: 3.9.3 Homepage: https://metacpan.org/release/Device-Cdio/ Vcs-Git: git://anonscm.debian.org/pkg-perl/packages/libdevice-cdio-perl.git Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/libdevice-cdio-perl.git Package: libdevice-cdio-perl Architecture: any Depends: ${perl:Depends}, ${shlibs:Depends}, ${misc:Depends} Description: CD Input and control library Device::Cdio is a interface to the GNU CD Input and Control library (libcdio) and it's ISO 9660 library (libiso9660) which are written in C. The library encapsulates CD-ROM reading and control and ISO 9660 handling. Perl programs wishing to be oblivious of the OS- and device-dependent properties of a CD-ROM can use this library. debian/changelog0000644000000000000000000001247512231166114011046 0ustar libdevice-cdio-perl (0.3.0-2build1) trusty; urgency=low * Rebuild for Perl 5.18. -- Colin Watson Mon, 21 Oct 2013 09:56:44 +0100 libdevice-cdio-perl (0.3.0-2) unstable; urgency=low [ Salvatore Bonaccorso ] * Change Vcs-Git to canonical URI (git://anonscm.debian.org) * Change search.cpan.org based URIs to metacpan.org based URIs [ Dominic Hargreaves ] * Add patch fixing FTBFS with perl 5.16 (Closes: #676272) -- Dominic Hargreaves Mon, 06 May 2013 00:38:44 +0100 libdevice-cdio-perl (0.3.0-1) unstable; urgency=low * Team upload [ gregor herrmann ] * debian/control: Changed: Switched Vcs-Browser field to ViewSVN (source stanza). [ Nathan Handler ] * debian/watch: Update to ignore development releases. [ Ansgar Burchardt ] * debian/control: Convert Vcs-* fields to Git. [ gregor herrmann ] * New upstream release. Closes: #677702 (FTBFS with libcdio 0.83) * Switch to source format 3.0 (quilt); remove quilt framework. * Use tiny debian/rules. * debian/copyright: update upstream years of copyright, upstream license terms; add info about new third-party file. * Set Standards-Version to 3.9.3, remove version from perl build dependency. * debian/control: update build and runtime dependencies due to changed upstream requirements and package versions in Debian. * Mention module name in long description. [ Martín Ferrari ] * debian/patches: removed a couple of patches applied upstream. * debian/patches: refreshed still-applying patches (and remove some not-relevant anymore lines in 03_version_information_in_swig.patch). [ gregor herrmann ] * Refresh 03_version_information_in_swig.patch and 04_wrong_handling_of_output_parameters.patch. * Drop obsolete patches 06_module_build.patch and 07_pod-coverage.patch. * debian/copyright: update to Copyright-Format 1.0. * Update years of packaging copyright. * Use debhelper 9.20120312 to get all hardening flags. * Add patch 05_tests-in-chroot.patch: skip tests that need a CDROM drive. * Add patch 06_spelling.patch to fix a spelling mistake in the POD. -- Damyan Ivanov Fri, 22 Jun 2012 08:14:42 +0300 libdevice-cdio-perl (0.2.4-5) unstable; urgency=medium [ gregor herrmann ] * Change patch system from dpatch to quilt. [ Martín Ferrari ] * Updating my email address [ gregor herrmann ] * Call test suite in debian/rules with "TZ=UTC", this finally fixes a FTBFS bug (closes: #487008). Set urgency to medium. * debian/control: - add /me to Uploaders - remove XS-DM-Upload-Allowed field, not needed any more, since Martín Ferrari has become a Debian Developer - wrap long line * Set Standards-Version to 3.8.0; add debian/README.source to document quilt usage. * Refresh debian/rules, no functional changes; except: don't install almost empty README any more. -- gregor herrmann Thu, 10 Jul 2008 22:11:28 +0200 libdevice-cdio-perl (0.2.4-4) unstable; urgency=medium [ Frank Lichtenheld ] * Clean up debian/rules target dependencies so that the package can be build with dpkg-buildpackage -j. Found by Daniel Schepler. [ gregor herrmann ] * Add new patch 07_pod-coverage.dpatch: only test pod coverage for modules in lib/Device/ (closes: #456845). * Set urgency to medium because of the fix for this FTBFS bug. * debian/control: - set Standards-Version to 3.7.3 (no changes needed) - remove trailing comma from Depends: line * debian/rules: - only delete /usr/share/perl5 if it exists - remove commented out dh_installman and unused dh_link calls * debian/watch: use dist-based URL. * debian/copyright: provide generic upstream source location. [ Roberto C. Sanchez ] * Update to debhelper compatibility level 6 * debian/control: Add XS-DM-Upload-Allowed field -- Roberto C. Sanchez Wed, 09 Jan 2008 23:19:21 -0500 libdevice-cdio-perl (0.2.4-3) unstable; urgency=medium * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser field (source stanza); Homepage field (source stanza). Removed: XS- Vcs-Svn fields; pseudo-field Homepage (Description). * Don't create .packlist file. * Remove empty /usr/share/perl5 directory. * Add patch 06_module_build: Change Build.PL to work with newer Module::Build, which doesn't import %Config automatically anymore (closes: #447461). -- gregor herrmann Sun, 21 Oct 2007 16:58:50 +0200 libdevice-cdio-perl (0.2.4-2) unstable; urgency=medium * Many bugs fixed found when using the library. Most of them related to the upcoming version 0.78 of libcdio. * Dependency on swig, to regenerate C wrappers. * Added dpatch support and moved all the modifications there. * Discovered and fixed an error in malloc (off-by-one allocation) which resulted in a buffer overrun, although exploiting it seems very unlikely. Setting urgency to medium. -- Martín Ferrari Mon, 30 Jul 2007 21:05:48 +0100 libdevice-cdio-perl (0.2.4-1) unstable; urgency=low [ Martín Ferrari ] * Initial Release. * Patched Build.PL (see http://rt.cpan.org/Ticket/Display.html?id=28132) [Krzysztof Krzyzaniak (eloy)] * Added debian/watch file -- Martín Ferrari Thu, 12 Jul 2007 12:30:23 +0100