Package: libaudio-flac-decoder-perl
Version: 0.2-2.2+b1
Severity: important
I have rated this "important" because its effect is to make the output
sound absolutely awful. On inspection of the decoded output and visual
comparison with that from flac -d, it appears that each correct 16 bit word
in the Audio::FLAC::Decoder output is followed by another word from elsewhere
in the file.
An example may make this clearer. Here is the correct output:
:; flac -d test.flac
:; sox test.wav test.raw
:; od -x test.raw|head -2
0000000 02b7 0377 026d 046f 01d8 0503 00c0 04ca
0000020 ffbd 0456 ffd7 0386 fed6 0210 fe56 00c5
and here is the output from my test script:
:; cat testcase.pl
#!/usr/bin/perl
use strict;
use warnings;
use Audio::FLAC::Decoder;
my $decoder=
Audio::FLAC::Decoder->open("/home/dan/mixes/libaudio-flac-decoder-perl-0.2/test.flac");
open(OUT,">out.raw");
binmode OUT,":raw";
my $buffer;
for(my $i=0;$i<1;$i++) {
my $len = $decoder->sysread($buffer);
syswrite(OUT,$buffer);
}
:; perl testcase.pl
:; od -x out.raw | head -4
0000000 02b7 fcab 0377 fff7 026d ff08 046f 00fd
0000020 01d8 00b0 0503 00c2 00c0 001d 04ca ff6c
0000040 ffbd 0021 0456 fe2a ffd7 009a 0386 fd35
0000060 fed6 009a 0210 fd0d fe56 fff7 00c5 fd3a
As you see, the correct words 02b7 0377 026d ... are interleaved with
extra data fcab fff7 ff08 ...
The extra data appears to come from later in the stream -
:; dd if=test.raw bs=1 skip=1024 |od -x | head -2
0000000 fcab fff7 ff08 00fd 00b0 00c2 001d ff6c
0000020 0021 fe2a 009a fd35 009a fd0d fff7 fd3a
N.B. I am reporting this bug on an amd64 system, but I have tested on
a x86 32 bit box as well, with exactly the same result
-- System Information:
Debian Release: lenny/sid
APT prefers unstable
APT policy: (500, 'unstable'), (500, 'testing'), (500, 'stable')
Architecture: amd64 (x86_64)
Kernel: Linux 2.6.24-1-amd64 (SMP w/1 CPU core)
Locale: LANG=en_GB.UTF-8, LC_CTYPE=en_GB.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash
Versions of packages libaudio-flac-decoder-perl depends on:
ii libc6 2.7-13 GNU C Library: Shared libraries
ii libflac8 1.2.1-1.2 Free Lossless Audio Codec - runtim
ii perl 5.10.0-15 Larry Wall's Practical Extraction
ii perl-base [perlapi-5.10.0] 5.10.0-15 minimal Perl system
libaudio-flac-decoder-perl recommends no packages.
libaudio-flac-decoder-perl suggests no packages.
-- no debconf information
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
