X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=unpack.pl;h=9ffb3ec45aa644498859cc6ec08d7641d076cf20;hb=30e6e0093497373b47581cf99da19c3fa9190711;hp=66f4c333abfb35b2c7bc85eb7677ebfcd89c9bbd;hpb=4358c740117d35d9fb0725c50464032d5ee9eb87;p=zc

diff --git a/unpack.pl b/unpack.pl
index 66f4c33..9ffb3ec 100755
--- a/unpack.pl
+++ b/unpack.pl
@@ -74,7 +74,7 @@ while ( $data ) {
 	my $data_id = unpack( 'C', substr($data,0,1) );
 	if ( ! exists( $protocol->{$data_id}->{description} ) ) {
 		my $len = unpack('C', substr($data,1,1));
-		printf "ERROR: no description for data_id %d 0x%2x len %d SKIPPING!\n", $data_id, $data_id, $len;
+		printf "ERROR: no description for data_id %d 0x%2x len %d [%s] SKIPPING!\n", $data_id, $data_id, $len, unpack('H*', substr($data,2,$len));
 		$data = substr($data,2 + $len);
 		next;
 	}