fix incorrect handling of block align
authorJosh Coalson <jcoalson@users.sourceforce.net>
Sat, 13 Sep 2008 19:29:27 +0000 (19:29 +0000)
committerJosh Coalson <jcoalson@users.sourceforce.net>
Sat, 13 Sep 2008 19:29:27 +0000 (19:29 +0000)
test/write_iff.pl

index 21ac733..b423ab3 100755 (executable)
@@ -118,7 +118,7 @@ elsif ($format eq 'wave' || $format eq 'wave64' || $format eq 'rf64') {
        print pack('v', $channels);
        print pack('V', $samplerate);
        print pack('V', $samplerate * $channels * $bps);
-       print pack('v', $bps); # block align = channels*((bps+7)/8)
+       print pack('v', $channels * $bps); # block align = channels*((bps+7)/8)
        print pack('v', $bps * 8); # bits per sample = ((bps+7)/8)*8
        if ($wavx) {
                print pack('v', 22); # cbSize