summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/tibtoa6
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}) {