Your message dated Thu, 21 Jun 2018 20:19:14 +0000 with message-id <e1fw630-000ajt...@fasolo.debian.org> and subject line Bug#337338: fixed in libaudio-file-perl 0.11-4 has caused the Debian Bug report #337338, regarding libaudio-file-perl: Should be able to handle disc number tags to be marked as done.
This means that you claim that the problem has been dealt with. If this is not the case it is now your responsibility to reopen the Bug report if necessary, and/or fix the problem forthwith. (NB: If you are a system administrator and have no idea what this message is talking about, this may indicate a serious mail system misconfiguration somewhere. Please contact ow...@bugs.debian.org immediately.) -- 337338: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=337338 Debian Bug Tracking System Contact ow...@bugs.debian.org with problems
--- Begin Message ---Package: libaudio-file-perl Version: 0.08-1 Severity: wishlist Tags: patch -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Audio::File should be able to handle the disc number tags available in newer tag formats. Specifically the DISCNUMBER tag in Ogg and FLAC and the TPOS tag in ID3v2 MP3 files. I have already made the necessary changes and attached a patch to provide the missing functionality. I have tested the code with Ogg, FLAC, and MP3 files and it has worked without a problem on all file types. - -- System Information: Debian Release: testing/unstable APT prefers unstable APT policy: (990, 'unstable'), (500, 'stable') Architecture: amd64 (x86_64) Shell: /bin/sh linked to /bin/bash Kernel: Linux 2.6.8-11-amd64-k8 Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8) Versions of packages libaudio-file-perl depends on: ii libaudio-flac-perl 0.7-1 Perl interface to FLAC file inform ii libmp3-info-perl 1.13-1 Perl MP3::Info - Manipulate / fetc ii libmp3-tag-perl 0.97-1 Module for reading tags of MP3 aud ii libogg-vorbis-header-pureperl 0.07-2 A pure Perl interface to Ogg Vorbi ii perl 5.8.7-7 Larry Wall's Practical Extraction libaudio-file-perl recommends no packages. - -- no debconf information -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2 (GNU/Linux) iD8DBQFDaqtTBPYwh6bSSDcRAr+eAJ9Bw2bi3G4WovzCT+i2L1rob1n2NwCfWIP0 E1FY9I8+5qPjw1mFRKDvftg= =e6iM -----END PGP SIGNATURE-----diff -Naur Audio.orig/File/Flac/Tag.pm Audio/File/Flac/Tag.pm --- Audio.orig/File/Flac/Tag.pm 2004-08-05 04:10:52.000000000 -0700 +++ Audio/File/Flac/Tag.pm 2005-11-03 16:09:45.739772000 -0800 @@ -19,6 +19,7 @@ $self->genre( $flactag->{GENRE} ); $self->year( $flactag->{DATE} ); $self->track( $flactag->{TRACKNUMBER} ); + $self->disc( $flactag->{DISCNUMBER} ); return 1; } diff -Naur Audio.orig/File/Mp3/Tag.pm Audio/File/Mp3/Tag.pm --- Audio.orig/File/Mp3/Tag.pm 2004-08-20 16:24:39.000000000 -0700 +++ Audio/File/Mp3/Tag.pm 2005-11-03 16:03:29.697356000 -0800 @@ -13,6 +13,11 @@ $self->{mp3}->get_tags(); my ($title, $track, $artist, $album, $comment, $year, $genre) = $self->{mp3}->autoinfo(); + + my $disc; + if (exists $self->{mp3}->{ID3v2}) { + $disc = $self->{mp3}->{ID3v2}->get_frame("TPOS"); + } $self->title( $title ); $self->artist( $artist ); @@ -21,6 +26,7 @@ $self->genre( $genre ); $self->year( $year ); $self->track( $track ); + $self->disc( $disc ); return 1; } diff -Naur Audio.orig/File/Ogg/Tag.pm Audio/File/Ogg/Tag.pm --- Audio.orig/File/Ogg/Tag.pm 2004-08-05 04:12:01.000000000 -0700 +++ Audio/File/Ogg/Tag.pm 2005-11-03 16:15:28.589534338 -0800 @@ -17,7 +17,8 @@ $self->comment( $self->{ogg}->comment('comment') ); $self->genre( $self->{ogg}->comment('genre') ); $self->year( $self->{ogg}->comment('date') ); - $self->track( $self->{ogg}->comment('tracknumber')); + $self->track( $self->{ogg}->comment('tracknumber') ); + $self->disc( $self->{ogg}->comment('discnumber') ); return 1; } diff -Naur Audio.orig/File/Tag.pm Audio/File/Tag.pm --- Audio.orig/File/Tag.pm 2004-08-05 08:49:48.000000000 -0700 +++ Audio/File/Tag.pm 2005-11-03 09:33:55.550414000 -0800 @@ -163,6 +163,23 @@ } +=head2 disc + +Set/get the disc field in the files tag. + +=cut + +sub disc { + my $self = shift; + if ( @_ ) { + $self->{disc} = shift; + return 1; + } + + return $self->{disc}; + +} + =head2 is_empty Returns whether all tag fields are empty or not.
--- End Message ---
--- Begin Message ---Source: libaudio-file-perl Source-Version: 0.11-4 We believe that the bug you reported is fixed in the latest version of libaudio-file-perl, which is due to be installed in the Debian FTP archive. A summary of the changes between this version and the previous one is attached. Thank you for reporting the bug, which will now be closed. If you have further comments please address them to 337...@bugs.debian.org, and the maintainer will reopen the bug report if appropriate. Debian distribution maintenance software pp. Florian Schlichting <f...@debian.org> (supplier of updated libaudio-file-perl package) (This message was generated automatically at their request; if you believe that there is a problem with it please contact the archive administrators by mailing ftpmas...@ftp-master.debian.org) -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA256 Format: 1.8 Date: Thu, 21 Jun 2018 21:59:48 +0200 Source: libaudio-file-perl Binary: libaudio-file-perl Architecture: source all Version: 0.11-4 Distribution: unstable Urgency: medium Maintainer: Debian Perl Group <pkg-perl-maintain...@lists.alioth.debian.org> Changed-By: Florian Schlichting <f...@debian.org> Description: libaudio-file-perl - Perl audio file abstraction library Closes: 337338 Changes: libaudio-file-perl (0.11-4) unstable; urgency=medium . * Team upload . [ gregor herrmann ] * debian/rules: switch order of arguments to dh. . [ Ansgar Burchardt ] * debian/control: Convert Vcs-* fields to Git. . [ gregor herrmann ] * debian/control: update {versioned,alternative} (build) dependencies. . [ Salvatore Bonaccorso ] * Change Vcs-Git to canonical URI (git://anonscm.debian.org) * Change search.cpan.org based URIs to metacpan.org based URIs . [ gregor herrmann ] * Strip trailing slash from metacpan URLs. . [ Salvatore Bonaccorso ] * Update Vcs-Browser URL to cgit web frontend * debian/control: Use HTTPS transport protocol for Vcs-Git URI * Update Vcs-* headers for switch to salsa.debian.org . [ Florian Schlichting ] * Mark package as source format 3.0 (quilt) * Bump dh compat to level 11 * Declare compliance with Debian Policy 4.1.4 * Add spelling.patch and rt45142.patch, forward pod_audio_properties.patch * Add bug337338.patch to handle disc number tags (closes: #337338) * Update d/copyright to copyright-format 1.0 * Mark package autopkgtest-able Checksums-Sha1: 072afaed727981c463b956a5443d4d0cefa9b797 2194 libaudio-file-perl_0.11-4.dsc 88e77cc4258f311738875560cdd1432de0567061 4780 libaudio-file-perl_0.11-4.debian.tar.xz a942239443150c930b1fc6a1c8e1a58920783d35 17936 libaudio-file-perl_0.11-4_all.deb b05dcbb20bff6848ec5551f1f44f5b80910957c4 5982 libaudio-file-perl_0.11-4_amd64.buildinfo Checksums-Sha256: 9e8be815159cb089f03a6438aed8ba483f9168fbefbd77955dba8608e76ed04c 2194 libaudio-file-perl_0.11-4.dsc fc95961a01349adeccd76caa6fe230667ce24e2d24f1aed3d31238b1e1015eb9 4780 libaudio-file-perl_0.11-4.debian.tar.xz 4c0a756c63487db10184bf69cad47e1639d25a98cbcc4f09241c57ee9490bfe1 17936 libaudio-file-perl_0.11-4_all.deb 4e1d6a98761ea8f9aeedbaf4e78d5fe542cdcbf73ff55617d1d050d40c380165 5982 libaudio-file-perl_0.11-4_amd64.buildinfo Files: e2ac3ffa79eed2c4790cc7b34860e886 2194 perl optional libaudio-file-perl_0.11-4.dsc b80c6aaffe44d77f3e834f8a79fda3d7 4780 perl optional libaudio-file-perl_0.11-4.debian.tar.xz a187d5303b7b9ab10d300fca9f917153 17936 perl optional libaudio-file-perl_0.11-4_all.deb e9e3234bfabda919a9e43fff352735d2 5982 perl optional libaudio-file-perl_0.11-4_amd64.buildinfo -----BEGIN PGP SIGNATURE----- iQIzBAEBCAAdFiEEMLI8i05qOwnqprZSEpc7bnLcB7UFAlssBdIACgkQEpc7bnLc B7WAyBAAkiAh98wK7u0b3xIDBqdS23AmxK7AaeBfZmWh4YbKN/oy8ulOecyn0bFs Q379Jj18ahRJFXodRdhe9Jnr2HeiHAWJyTzmuqpkWD9Yy77mX0FHRqfeiNCSVkAn TrVRjRAcWTfAieR/c74csZq6vlsfxS8ROxVOrimYXO2M27e+wIFv5u39slDrOYam 3A4vaDNMWka+OaRDB2HmlNse/4t54rMiC9EWP7kBzf240cAfWZl8MJMAKdrnUAfo 57lBMQjLrIpvLbjVj0Q8tY6bmTcwIoSb5cdnvBhSAyL45sZt0i2sXaqYGTDNrsD0 wi8JzZU2Q5o7Bxi4jkuQ7u8Vojy3ZKrqshtFi8TlV2CDpUGJ2aXITmlKCA7m+FNv K0jSn5qv97fz5+Mo8Bj0eyAbXvC1HMr6lkdYdxFMqkW84Ya1tnUtmuiKKN9Tp8HV 83KLV67/9qkPnfuda1gKMg3RYrcxHukOzKi3y2mrf/gXGgjJwJCb5P6DWUiCoiSh B/e3Qb/zksraPg8V4dDwQMitayCJoKDbyZ5KmuuocCcjt83f//hIkFIqTujRaGdt vL4OtPzJ/JfJ0OawiUmR/kZewqvIUYyimb+RAQQrrKQ2BKCjRDPi3lIxPIvSmYuX 7aVBJSBc6IyRAJBtu3D0we2bK1P33LMGgjeXm93VlJd09xC6c+E= =p88A -----END PGP SIGNATURE-----
--- End Message ---
