tibtoa: Print offset for unknown bytes

1 files changed, 5 insertions, 1 deletions

diff --git a/bin/tibtoa b/bin/tibtoa
index 7ad8833..a9cd03a 100755
--- a/bin/tibtoa
+++ b/bin/tibtoa
@@ -635,7 +635,11 @@ while($offset <= $length) {
 		$char2 = ord(substr($program, $offset++, 1));
 		$out = $special->{$char}->{$char2};
 	} else {
-		warn(sprintf('Unknown byte 0x%02x', $char));
+		printf STDERR (
+			"Unknown byte 0x%02x at offset %d\n",
+			$char,
+			$offset - 1,
+		);
 		$out = chr($char);
 	}
 	if ($opts{i}) {