| Subject: | multiple files reading bug [patch] |
| Date: | Tue, 3 Apr 2012 03:10:06 +0300 |
| To: | bug-Audio-Wav [...] rt.cpan.org |
| From: | "mypasts [...] gmail.com" <mypasts [...] gmail.com> |
my $read1 = Audio::Wav->read('filename1.wav');
my $read2 = Audio::Wav->read('filename2.wav');
my @channels1 = $read1->read();
my @channels2 = $read2->read();
This code will read the samples from the same file handle.
The patch:
diff Audio-Wav-0.13/Wav/Read.pm Audio-Wav-0.13-patched/Wav/Read.pm
301a302,305
Show quoted text
> my $self = shift;
> my $handle = $self -> {handle};
> my $details = $self -> {data};
> my $block = $details -> {block_align};