From bbdb83d633f534727aa6073e83637128de0bd003 Mon Sep 17 00:00:00 2001
From: Josh Coalson <jcoalson@users.sourceforce.net>
Date: Sat, 13 Sep 2008 19:29:27 +0000
Subject: [PATCH] fix incorrect handling of block align

---
 test/write_iff.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/write_iff.pl b/test/write_iff.pl
index 21ac733..b423ab3 100755
--- a/test/write_iff.pl
+++ b/test/write_iff.pl
@@ -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
-- 
2.7.4