53 |
hex_dump( $bytes ); |
hex_dump( $bytes ); |
54 |
|
|
55 |
if ( $bytes eq 'AMV_END_' ) { |
if ( $bytes eq 'AMV_END_' ) { |
56 |
warn "## end of file marker AMV_END_\n"; |
warn "> end of file marker AMV_END_\n"; |
57 |
$d->{eof}++; |
$d->{eof}++; |
58 |
return; |
return; |
59 |
} |
} |
75 |
if ( $expected_len ) { |
if ( $expected_len ) { |
76 |
confess "expected $expected_len bytes for $part got $len" if $len != $expected_len; |
confess "expected $expected_len bytes for $part got $len" if $len != $expected_len; |
77 |
} |
} |
78 |
printf ">>> %s | %d 0x%x bytes\n", $part, $len, $len; |
printf ">> %s - %d 0x%x bytes\n", $part, $len, $len; |
79 |
x($len) if $skip; |
x($len) if $skip; |
80 |
return $len; |
return $len; |
81 |
} |
} |