Skip Menu |

This queue is for tickets about the Audio-FLAC-Header CPAN distribution.

Report information
The Basics
Id: 61429
Status: resolved
Priority: 0/
Queue: Audio-FLAC-Header
People
Owner: Nobody in particular
Requestors: wouter.scha [...] gmail.com
Cc:
AdminCc:
Bug Information
Severity: Normal
Broken in: 2.3
Fixed in: (no value)

History Show all quoted text
  Fri Sep 17 09:42:04 2010 wouter.scha [...] gmail.com - Ticket created
Subject: BITSPERSAMPLE in Audio::Flac::Header
Hi I've been using the Audio::Flac::Header module in Perl to manage my music collection. Everything works fine (and thanks a lot for developping the module), but I think that I've found a little bug. When I ask the bits per sample (BITSPERSAMPLE), the result is always 6. Normally it should be 16. I hope I've found a problem (and it's not me :D). Thanks in advance.
  Fri Sep 17 14:48:43 2010 https://me.yahoo.co.jp/a/1Nsvz2BcKPnW3LzLaB_ZES4pAIPPSf3g80fNRpmVKDRr#a6a01 - Correspondence added
From: Tetsuya Y.
On 2010-9月-17 金 09:42:04, w29 wrote: Show quoted text
> Hi > > I've been using the Audio::Flac::Header module in Perl to manage my > music collection. > Everything works fine (and thanks a lot for developping the module), but > I think that I've found a little bug. > When I ask the bits per sample (BITSPERSAMPLE), the result is always 6. > Normally it should be 16. > > I hope I've found a problem (and it's not me :D). Thanks in advance.
Hi, I happened to find same problem today (and visit here just now!) If you are using pure perl version, look for the line below in Header.pm (maybe you'll find at line 395) $info->{'BITSPERSAMPLE'} = unpack('N', pack('B32', substr($x32 . substr($metaBinString, 100, 5), -32))) + 1; I have changed this line as $info->{'BITSPERSAMPLE'} = unpack('N', pack('B32', substr($x32 . substr($metaBinString, 103, 5), -32))) + 1; then my 16 & 24 bit flac files gave me "16" or "24". Wish this your help. Tetsuya
  Fri Sep 17 14:48:43 2010 The RT System itself - Status changed from 'new' to 'open'
  Sat Sep 18 09:37:15 2010 wouter.scha [...] gmail.com - Correspondence added
From: wouter.scha [...] gmail.com
On Fri 17 Sep 2010 14:48:43, https://me.yahoo.co.jp/a/1Nsvz2BcKPnW3LzLaB_ZES4pAIPPSf3g80fNRpmVKDRr#a6a01 wrote: Show quoted text
> On 2010-9月-17 金 09:42:04, w29 wrote:
> > Hi > > > > I've been using the Audio::Flac::Header module in Perl to manage my > > music collection. > > Everything works fine (and thanks a lot for developping the module), but > > I think that I've found a little bug. > > When I ask the bits per sample (BITSPERSAMPLE), the result is always 6. > > Normally it should be 16. > > > > I hope I've found a problem (and it's not me :D). Thanks in advance.
> > Hi, > > I happened to find same problem today (and visit here just now!) > > If you are using pure perl version, look for the line below in Header.pm > (maybe you'll find at line 395) > > $info->{'BITSPERSAMPLE'} = unpack('N', pack('B32', substr($x32 . > substr($metaBinString, 100, 5), -32))) + 1; > > I have changed this line as > > $info->{'BITSPERSAMPLE'} = unpack('N', pack('B32', substr($x32 . > substr($metaBinString, 103, 5), -32))) + 1; > > then my 16 & 24 bit flac files gave me "16" or "24". > > Wish this your help. > > Tetsuya
Tanks a lot. It works! Now you make my day. Kind Regards
  Sat Sep 18 11:08:09 2010 daniel [...] cpan.org - Correspondence added
This has been fixed in v2.4, on it's way to CPAN.
  Sat Sep 18 11:08:10 2010 daniel [...] cpan.org - Status changed from 'open' to 'resolved'