- my ($self, $data) = @_;
- $UNCOMPRESS{$self->{header}{compression}}->($data)
+ my ($self, $data) = @_;
+ my $compression = $self->{header}{compression};
+ if ($ENV{HARNESS_ACTIVE} && $compression eq 'lzma2') {
+ my $prefix = unpack 'H*', substr $data, 0, 10;
+ my $md5sum = md5_hex $data;
+ Test::More::diag "Uncompressing data starting '$prefix', md5sum $md5sum";
+ }
+ $UNCOMPRESS{$compression}->($data)