debian/0000755000000000000000000000000011773124315007172 5ustar debian/libdevice-cdio-perl.examples0000644000000000000000000000001311655671714014537 0ustar examples/* debian/compat0000644000000000000000000000000211770770617010401 0ustar 9 debian/source/0000755000000000000000000000000011655671714010503 5ustar debian/source/format0000644000000000000000000000001411655671714011711 0ustar 3.0 (quilt) debian/copyright0000644000000000000000000000313511770770617011140 0ustar Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Upstream-Name: Device-Cdio Upstream-Contact: Rocky Bernstein Source: http://search.cpan.org/dist/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/rules0000755000000000000000000000014411770770617010262 0ustar #!/usr/bin/make -f %: dh $@ --buildsystem=perl_build override_dh_auto_test: TZ=UTC dh_auto_test debian/control0000644000000000000000000000234011773124222010571 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, gcc-4.7 Maintainer: Debian Perl Group Uploaders: Martín Ferrari , gregor herrmann Standards-Version: 3.9.3 Homepage: http://search.cpan.org/dist/Device-Cdio/ Vcs-Git: git://git.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/watch0000644000000000000000000000015711655671714010237 0ustar version=3 http://search.cpan.org/dist/Device-Cdio/ .*/Device-Cdio-v?(\d[\d.]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip) debian/patches/0000755000000000000000000000000011770770617010632 5ustar debian/patches/06_spelling.patch0000644000000000000000000000107311770770617013776 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.patch0000644000000000000000000000144311770770617017770 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/04_wrong_handling_of_output_parameters.patch0000644000000000000000000000727411770770617021517 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/02_wrong_function_name.patch0000644000000000000000000000111311710313305016166 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.patch0000644000000000000000000000175311770770617015227 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/series0000644000000000000000000000023211770770617012044 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 debian/changelog0000644000000000000000000001173311773124274011055 0ustar libdevice-cdio-perl (0.3.0-1+rpi1) wheezy; urgency=low * Add gcc-4.7 to build-depends -- Peter Michael Green Thu, 28 Jun 2012 18:55:24 +0000 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