Package: libaudio-flac-decoder-perl
Version: 0.2-2.2+b1
Severity: normal
Audio::FLAC::Decoder->sysread always reads 2048 bytes no matter what
the second arg passed to it.
Test case follows:
-- cut here --
#!/usr/bin/perl
use strict;
use warnings;
use Audio::FLAC::Decoder;
use Data::Dumper;
# this is the test.flac from the debian source package, but I have tried
# with other flac files from my library as well
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,16);
warn "$len should be 16";
warn $decoder->bits_per_sample;
warn $decoder->channels;
warn $decoder->sample_rate;
#print join(" ",map {sprintf("%x",$_)} unpack("C*",$buffer));
syswrite(OUT,$buffer);
}
exit 0;
--cut here--
-- 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]
